map{$_+= 1} @a; real 0m5.233s user 0m5.056s sys 0m0.164s