Can also use map() in a side-effects fashion.

my @nums = (1,2,3,4,5);

my $sum = 0;
map { $sum += $_ } @nums;

print "\$sum = $sum\n";
[download]

The above code prints:

$sum = 15
[download]

Originally posted as a Categorized Answer.