map{$n<$@or$n=!++$@;$a[20-$@+$n][$n++]=$_}1..<>;$_&&print"@$_
"for@a