[Moscow.pm] sum of array

[Denis Evdokimov]

Если нам не нужен массив...
my @m = (1, 2, 3, 4);
$m[0]+= pop @m while @m > 1;
print $m[0];