use strict;
use warnings;
use Benchmark;

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