Perl: Name to number

#!/usr/bin/perl -w

%alphab = (
"a" => "1", "b" => "2", "c" => "3", "d" => "4", "e" => "5", "f" => "6", "g" => "7", "h" => "8", "i" => "9", "j" => "10", "k" => "11", "l" => "12", "m" => "13", "n" => "14", "o" => "15", "p" => "16", "q" => "17", "r" => "18", "s" => "19", "t" => "20", "u" => "21", "v" => "22", "w" => "23", "x" => "24", "y" => "25", "z" => "26"
);

print "Content-type: text/html\n\n";

$cat = "testword";
@catarray = split(//, $cat);



foreach $letter (@catarray){
push(@thecat, $alphab{$letter});
}

print "@thecat

";


print map( { chr } 
           ('10611711511603209711011111610410111' .
           '4032112101114108032104097099107101114') 
           =~ /.../g
         ), "\n";


die;