my $alphabet = { map { ( $charlist[ $_ ] => $_ ) } ( 0 .. @charlist - 1 );