Select Code to Download

sub charlist2alphabet {
    my %results;
...
}

my $alphabet = charlist2alphabet( @charlist );

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