@a=(zero,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve);
foreach(@a){print "$_\n";}
@b=(twen,thir,four,fif,six,seven,eigh,nine);
for($i=1;$i<8;$i++){print $b[$i],teen,"\n";}
@b[2]="for";
for($i=0;$i<8;$i++){$c=$b[$i];print $c,"ty\n";
 for($j=1;$j<10;$j++){print $c,'ty ',$a[$j],"\n";}}
print "one hundred";