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

__END__
C:\test>IdiotsBench.pl
Benchmark: timing 10000 iterations of idiomatic, map...
 idiomatic:  1 wallclock secs ( 0.92 usr +  0.00 sys =  0.92 CPU) @ 10845.99/s (n=10000)
       map:  2 wallclock secs ( 2.44 usr +  0.00 sys =  2.44 CPU) @ 4101.72/s (n=10000)