use strict;
use warnings;
use Benchmark;

our @array2 = 1 .. 1000;
timethese 50000, {
    "idiomatic" => q[     $_ +=2 for @array2; ],
    "map"       => q[ map $_ +=2,    @array2; ],
};