Select Code to Download

foreach(@a){$_+=1;};

...
user    0m3.588s
sys    0m0.120s

map{$_+= 1} @a;

...
user    0m5.056s
sys    0m0.164s