1         2         3         4         5         6  
12345678901234567890123456789012345678901234567890123456789012345
#runrig improvement
$#=" %@{[length$a++*$a/2]}g";print$j+1..($j+=++$i),$/for 2..$a
#blakem/hopes/jynx improvement
$;=length$a++*$a/2;map{printf" %$;d",++$,for 2..$_;print$/}2..$a