my $char = 'A';
my $num  = -64 + ord uc $char;