Script to ask the numbers from user as a input and return the numbers which are above average.

#!/usr/bin/perl
#===============================================================================
#
# FILE: above_avg.pl
#
# USAGE: perl above_avg.pl
#
# DESCRIPTION: Script to ask the numbers from user as a input and return the numbers which are above average.
#
# OPTIONS: ---
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Parag Kalra, paragkalra@gmail.com, www.paragkalra.com (),
# COMPANY: As of now Persistent System LTD, www.persistentsys.com
# VERSION: 1.0
# CREATED: Wednesday 11 February 2009 07:06:21 IST
# REVISION: ---
#===============================================================================


print "Please enter the numbers: \n";
@nums=;

@more_avg=&above_avg(@nums);

#=== FUNCTION ================================================================
# NAME: above_avg
# PURPOSE: To calculate numbers above average
# PARAMETERS: ????
# RETURNS: ????
# DESCRIPTION: ????
# THROWS: no exceptions
# COMMENTS: none
# SEE ALSO: n/a
#===============================================================================
sub above_avg {

print "You have entered following numbers: \n ";
print "@_ \n";
$avg_value=&avg(@_);

print "Numbers greater than average - $mean are: \n";

foreach (@_) {
if ($_ > $avg_value) {
#@return_more=(@return_more,$_);
push(@return_more,$_);

}


}

print " @return_more \n";
}


#=== FUNCTION ================================================================
# NAME: avg
# PURPOSE: To calculate mean value
# PARAMETERS: ????
# RETURNS: ????
# DESCRIPTION: ????
# THROWS: no exceptions
# COMMENTS: none
# SEE ALSO: n/a
#===============================================================================
sub avg {
$sum=0;
$count=0;
foreach (@_) {
$sum=$sum+$_;
$count=$count+1;
}
$mean=$sum / $count;
print "Total numbers entered: $count \n";
print "Sum of numbers: $sum \n";
print "Mean of numbers: $mean \n";
$mean;
}