print 1,$/;
for(2..100){$l="";for$s(@S){$l.=$$s[1]if$_%$$s[0]==0}if($l eq""){$l=substr("DoFiBuMePaQoDiFuBeMaPoQiDuFeBaMoPiQuDeFaBoMiPuQeDa",$p,2)."zz";push(@S,[$_,$l]);$p+=2}print$l,$/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).