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

real	0m4.941s
user	0m1.096s
sys	0m3.604s

##</code><code>##

@a = map{$_+= 1} @a;

real	0m6.248s
user	0m2.652s
sys	0m2.900s

##</code><code>##

map{$_+= 1} @a;

real	0m3.224s
user	0m2.908s
sys	0m0.232s