@$n=((map$$_[$n-1],1..$n++),split),print"@$n
"for<>