咋就不对呢

#!/usr/bin/perl
#
#
my @fred=qw{1 3 5 7 9};
my $fred_total=&total(@fred);
print "The total of \@fred is $fred_total.\n";
print "Enter some numbers on separate lines:";
my $user_total=&total(<STDIN>);
print "The total of those numbers is $user_total.\n";

sub total{
my $i,$sum;
for ($i=0;$i<=$#_;$i++){
$sum+=$_[$i];
}
$sum;
}


第一个调用木问题。为啥第二个就不对呢，烦请赐教，谢谢。

本问题已解决，，，谢谢。

lz在perlbeginners group 发过：）

木有，tks.