C:\test>IdiotsBench.pl
timethese 10000, {
    "idiomatic" => sub {     $_ +=2 for @array; },
    "map"       => sub { map $_ +=2,    @array; },
};

__END__
Benchmark: timing 10000 iterations of idiomatic, map...
 idiomatic:  1 wallclock secs ( 0.95 usr +  0.00 sys =  0.95 CPU) @ 10493.18/s (n=10000)
       map:  1 wallclock secs ( 0.95 usr +  0.00 sys =  0.95 CPU) @ 10493.18/s (n=10000)