my %mapping = (
"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", "0" => "15", "p" => "16",
"q" => "17", "r" => "18", "s" => "19", "t" => "20",
"u" => "21", "v" => "22", "w" => "23", "x" => "24",
"y" => "25", "z" => "26"
####
my $new_ch = ( $old_ch - 'a' ) + 1;
##
##
my $new_ch = chr( ord( $old_ch ) - 96 );