计算1+2+3...1000值的Perl程序

#!/usr/bin/perl
$sum =0;
@add=(1..1000);

foreach $result (@add) {
$sum += $result;
}
print "$sum\n";