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

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

print "\$sum = $sum\n";


##</code><code>##


$sum = 15