Если нам не нужен массив...
my @m = (1, 2, 3, 4);
$m[0]+= pop @m while @m > 1;
print $m[0];
-- 
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить