@a=(zero,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve);\x0d foreach(@a){print "$_\n";}\x0d @b=(twen,thir,four,fif,six,seven,eigh,nine);\x0d for($i=1;$i<8;$i++){print $b[$i],teen,"\n";}\x0d @b[2]="for";\x0d for($i=0;$i<8;$i++){$c=$b[$i];print $c,"ty\n";\x0d for($j=1;$j<10;$j++){print $c,'ty ',$a[$j],"\n";}}\x0d print "one hundred";
Note that non-ascii characters in the above source code will be escaped (such as \x9f).