map{$_+= 1} @a; real 0m3.224s user 0m2.908s sys 0m0.232s