Select Code to Download

use strict;
use warnings;
...
        'map (bare)'   => sub { map { $_ += 1 } @a; },
    }
);

             s/iter map (assign)   map (bare)      foreach
map (assign)   2.06           --         -40%         -76%
map (bare)     1.23          67%           --         -59%
foreach       0.501         311%         146%           --