Select Code to Download

#!/usr/bin/env perl

...
    map_block => sub { my @y = @x; map { ++$_ } @y; return },
    for => sub { my @y = @x; ++$_ for @y; return },
};

              Rate map_block  map_expr       for
map_block  75019/s        --      -44%      -47%
map_expr  134953/s       80%        --       -5%
for       141844/s       89%        5%        --

$ perl -v | head -2 | tail -1
This is perl 5, version 26, subversion 0 (v5.26.0) built for darwin-th
+read-multi-2level