$"=$\="\n";@a=(zero,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve);@b=(twen,thir,four,fif,six,seven,eigh,nine);@e=map{$_."teen"}@b[1..7];@b[2]="for";@t=map{($s=$_."ty",map{"$s $_"}@a[1..9])}@b;print "@a\n@e\n@t\none hundred";