$n=1+length$a++*$a/2;map{map{printf"%${n}d",++$k}1..$_;print$/}1..$a-1