@a=(1,2,3);
@a_plus_1 = map { $_ + 1 } @a;