Select Code to Download

#!/usr/bin/env perl

...
sub with_map {
    my @f = map [$_+2, $_+1], 0 .. 5;
}

# 0 .. 5
             Rate with_map with_for
...
          Rate with_map with_for
with_map 745/s       --     -23%
with_for 968/s      30%       --