my %trans = (
   1 => "one",
   2 => "two",
   ...
   z => "zulu",
) ;  #<---note semi-colon
foreach (split //, $line) {
....

##</code><code>##

print "Enter some letters and numbers:  " ;
my $line = <STDIN> ;
chomp $line ;
$print = lc $line ;
...
foreach (split //, $print) {
...