sub alphabet_ordinal {
my ($char, $alphabet) = @_;
for( 0..$#$alphabet ) {
for my $ord ( 0..$#$alphabet ) {
return $_ if $char eq $alphabet->[$_];
return $ord if $char eq $alphabet->[$ord];
}
return ''; #ignore missing chars
-