use strict;
use warnings;
use Benchmark;

my @a;
$a[$_] = int( rand(100) ) for ( 0 .. 10000000 );

cmpthese(
    -30,
    {
        'foreach'      => sub { foreach (@a) { $_ += 1; } },
        'map (assign)' => sub { @a = map { $_ += 1 } @a; },
        'map (bare)'   => sub { map { $_ += 1 } @a; },
    }
);

##</code><code>##

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