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