map$a[$y=$y?$y-1:@a].=$_.$",1..<>;s# $# #,print for reverse@a