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

##</code><code>##

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

##</code><code>##

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