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

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