my $new = ord( uc $old ) - 64;