#        1         2         3         4         5
#2345678901234567890123456789012345678901234567890
@%=1..50;$%+=splice@%,rand@%,1for$]..9;print$%,$/