$i=@a=<>=~/./g;print$s=$"x$i,"@a[$i..$#a]$s
"while$i--