返回列表中大于平均数的数

#!/usr/bin/perl

#计算总数
sub total
{
        my @fred = @_;
        foreach (@_) {
        $total += $_;
        }
        return $total;
}

#返回大于平均值的数
sub above_average
{
        $average = &total(@_)/@_; #计算平均值
        foreach (@_)
        {
                if( $_ > $average )
                {
                        print "$_\n";
                }
        }
}

&above_average(1..10);