perl计算数组内数值的平均值并返回

#!user/bin/perl

use strict;
#function to return the average number of the array ;

sub average {
my (@num) = @_;
my $num = scalar @num;
my $total;
foreach (0..$#num) {

$total += $num[$_];
}
return ($total/$num);
}
#function to search the number of the array;

sub above_average {
my (@arry) = @_;
my $average = average(@arry);
my @num;
foreach (0..$#arry){

    push(@num,$arry[$_]) if ($arry[$_] >= $average);
}
return @num;
}

#test the sub

my @fred = above_average(1..10);
print "\@fred is @fred \n";
#test two

my @barney = above_average(100,1..10);
print "\@barney is \n".join "\t",@barney,"\n";
<STDIN>;