$"="";@L=A..Z;while(@L){$x="@L
";$c=lc pop@L;print"$x@L$c
"}