timethese 10000, {
    "idiomatic" => sub { my @array = 1..1000;      $_ +=2 for @array; },
    "map"       => sub { my @array = 1..1000; map{ $_ +=2;}   @array; },
};

__END__
C:\test>IdiotsBench.pl
Benchmark: timing 10000 iterations of idiomatic, map...
 idiomatic:  2 wallclock secs ( 1.52 usr +  0.00 sys =  1.52 CPU) @ 6596.31/s (n=10000)
       map:  3 wallclock secs ( 3.06 usr +  0.00 sys =  3.06 CPU) @ 3264.77/s (n=10000)