关于perl的一个程序,出错.

我写了一个perl程序,出现了错误,但又不知道为什么,请请教大家.
use warnings;
use strict;

my @fred=&above_average(1..10);
print"\@fred is @fred\n";
print"(Should be 6 7 8 9 10)\n";
my @barney=&above_average(100,1..10);
print"\@barney is @barney\n";
print"(Should be just 100)\n";

sub return_average{
my(@number)=@_;
my($average)=0;
foreach(0..$#number)
{
$average+=$number[$_];
)
$average=$average/($#number+1);
}

sub above_average{
my(@number)=@_;
my($average)=&return_average(@number);
my(@return_result)=undef;
my($num)=0;
foreach(0..$#number)
{
if($number[$_]>$average)
{
$return_result[$num]=$number[$_];
$num+=1;
}
else
{
$_+=1;
}
}
@return_result;
}
其中$average=$a

 sub return_average {
   my(@number)=@_;
   my($average)=0;
   foreach(0..$#number){
$average += $number[$_];
   }
   $average = $average / ($#number+1);
 }

请教一个PERL的思路 怎么测试perl编写的cgi程序？ 谁有perl的可视化程序？ 哪位大侠帮偶解释一个perl程序 关于perl的问题 我想用perl实现 遍历一个工作目录下所有的exe和bat文件 并且执行 请问如果编写 PERL程序趣味题目！ perl程序如何调试？ perl程序如何运行 Perl程序怎么用 关于安装程序出错的问题```