@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));