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

##</code><code>##

foreach ( map { $_ +1 } @a ) {
 #whatever
}