perl 语言请教,谢谢!!!

下面子程序:
#!/usr/bin/perl
@array=<stdin>;
chomp (@array);
sub average(@array){
my($t)=0;
foreach $a(@array){
$t=$t+$a;
}
my($average)=$t/@array;
$average;
}
sub above_average(@array){
$ave=&average(@array);
foreach $b(@array){
if($b>$ave){
print "$b\n";
}
}
}
&above_average;

如果我输入1 2 3,得出结果是3D,3是对的,不过我想问下后面为什么跟着一个D,是不是有换行符没有去掉,还是怎么回事,敬请赐教,谢谢!!

请教perl无法运行 谁发明perl编程语言 perl是何种编程语言? 请教一个PERL的思路 哪位发明了Perl编程语言 哪位发明了Perl编程语言? C语言和Perl 语言是干什么用的？？？ 请教C语言问题，谢谢！ 请教语言大师！！！急急！！谢谢 请教语言大师！！！急急，谢谢！！！