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