my @result = reduce { $a += $b } @input;