my @a = (1 .. 10);
my $sum = 0;
$sum += $_ foreach(@a);
print $sum;