Select Code to Download

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

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