Help for this page
sub charlist2alphabet { my %results; ... } my $alphabet = charlist2alphabet( @charlist );
my $alphabet = { map { ( $charlist[ $_ ] => $_ ) } ( 0 .. @charlist - +1 );