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


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


##</code><code>##

map{$_+= 1} @a;

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