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