$a = 5;
#        1         2         3         4         5
#2345678901234567890123456789012345678901234567890
for(1..$a){printf"%$a.d",++$;for(0..$@++);print$/}