求看一下这个代码为什么得不到运行结果！！

@a = ;
sub max{
my ($maxsize) = shift @;
foreach $a(@){
if($>$maxs){
$maxs = $;
}
return $maxs;
}
}
my $maxa = &max(@a);
print $maxa;
#perl语言