@tens = ("", "ten ", "twenty ", "thirty ", "forty ", "fifty ",
"sixty ", "seventy ", "eighty ", "ninety ");
for $o (0 .. 9){
$e[$o * 10] = $tens[$o] =~ s/ $//r;
for $i ( 0 .. 8){
$e[$o * 10 + $i + 1] = $tens[$o] . qw(one two three four five six seven eight nine)[$i]
}
$e[10 + $o] = qw(a eleven twelve thirteen fourteen fifteen sixteen
seventeen eighteen nineteen)[$o];
}
$e[0] = "zero";
$e[100] = "one hundred";
print(join("\n", @e));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).