perl -wle '@a = 1; @b = map {++ $_ -> [0]} map {[$_]} @a; print "@a"; print "@b"'
1
2

##</code><code>##

perl -wle '@a = 1; @b = map {$_} @a; $a [0] ++; print "@a @b"'
2 1