写一个名为&above_average的子程序，当给定一个包含多个数字的列表时，返回其中大于这些平均值的数。

1. sub sum{ 
2.         my $sum;                                #定义私有变量 
3.         foreach(@_){ 
4.                 $sum += $_; 
5.         } 
6. $sum;                                           #返回累加和的返回值 
7. } 
8.  
9.  
10. sub average{ 
11.         if(@_ == 0) {
    return}                    #如果列表为空，不进行计算（最后一条语句可以不写分号，也就是return后面的分号可以省略） 
12.         my $ave; 
13.         my $len = @_; 
14.         $ave = &sum(@_)/$len;                   #计算平均值并返回 
15.  
16. } 
17.  
18.  
19. sub above_average{ 
20.         my $average = &average(@_); 
21.         my @list; 
22.  
23.         foreach (@_){ 
24.                 if($average<$_){ 
25.                 push @list ,  $_;               #如果高于平均值，入list 
26.                 } 
27.         } 
28. @list;                                          #返回list 
29. } 
30.  
31.  
32. my @fred = above_average(1..10); 
33. print "\@fred is @fred\n"; 
34. print "(shoule be 6 7 8 9 10)\n"; 
35.  
36. my @barney = above_average(100,1..10); 
37. print "\@barney is @barney\n"; 
38. print "(shoule be just 100)\n"; 

运行结果：