perl中push用法，子程序返回值的反思

今天晚上用了半个多小时写了一个简单的程序，输出一串数字中比平均值大的数，其中有两个问题值得注意：

sub above_average
{
	$number=@_;
	foreach $how(@_)
	{
		$total=$total+$how;
	}
	$the_average=$total/$number;
	foreach (@_)
	{
		if ($_>$the_average)
		{
			push(@larger,$_)#这里不用赋值，数组元素的添加，直接用push就好了
		}
	}
	@larger;#子程序的返回值，一定要有，刚开始没有写
}
print "please input several numbers,and you will get the number which is large than their averagen";
@the_number_input=<STDIN>;
@the_number_larger=above_average(@the_number_input);
print "@the_number_largern";

学习的过程中，总结小的地方，才能够在写代码的过程中不出错！