%numbers = (
  0,    '',    1, 'mot',  2,  'hai',  3,   'ba',
  4,    'bon', 5, 'nam',  6,  'sau',  7,   'bay',
  8,    'tam', 9, 'chin', 10, 'muoi', 100, 'tram',
  1000, 'ngan'
);

sub translate {
  my $number = $_[0];
  my @output = ();
  if (defined($numbers{$number})) {
    $text_version = $numbers{$number};
    print "$text_version \n";
  } else {
    $reverse_number = reverse($number);
    $places         = 1;
    @digits         = split ('', $reverse_number);
    foreach $digit (@digits) {
      if ($places == 1) {
        push (@output, $numbers{$digit});
      } else {
        push (@output, $numbers{$places});
        unless ($number < 20) {
          push (@output, $numbers{$digit});
        }
      }
      $places *= 10;
    }
    @output = reverse(@output);
    print "@output \n";
  }
}




##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;