print"@a[$_-@a..$_-1]
"for@a=1..<>