@F[$r=$_/3-int$_/5].=$"x($d++-length@F[$r]).$_,$d+=$_>9for 1..100;$,=$/;print@F