my $sum;
@sums = map {$a += $_} @a;