#! /usr/local/bin/perl
use warnings ;
use diagnostics ;
# use strict ;

print "Enter some letters and numbers:  " ;
my $line = <STDIN> ;
chomp $line ;
$print = lc $line ; 

my %trans = (
1 => "one",
2 => "two",
3 => "tree",
4 => "four",
5 => "fife",
6 => "six",
7 => "seven",
8 => "eight",
9 => "niner",
0 => "zero",
a => "alpha",
b => "bravo",
c => "charlie",
d => "delta",
e => "echo",
f => "foxtrot",
g => "golf",
h => "hotel",
i => "india",
j => "juliet",
h => "hotel",
i => "india",
j => "juliet",
k => "kilo",
l => "lima",
m => "mike",
n => "november",
o => "oscar",
p => "papa",
q => "quebec",
r => "romeo",
s => "sierra",
t => "tango",
u => "uniform",
v => "victor",
w => "whiskey",
x => "xray",
y => "yankee",
z => "zulu",
) ;

foreach ( split //, $print ) {
    if ( exists $trans {$_} ) {
        print $trans {$_}, " " ;
    } else {
        print $_, " ";
    }
    print "\n" ;
}
print "\n" ;