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