my $sum = reduce {$a + $b } map { .... } grep { ...... } @some_array