Select Code to Download

sub key {
    $kp= shift;
...

printKeys(\%p2C);
printKeys(\%C2p);

C:\chas_sandbox>foreachasmap.pl

...
pt:   m p s v l a z y d g t h e q u i c k b r o w n f x j

C:\chas_sandbox>

sub key {
    $kp= shift;
...

printKeys(\%p2C);
printKeys(\%C2p);

C:\chas_sandbox>foreachasmap.pl

...

CT:   A C D E G K L M N O P Q R S T U V W X Z
pt:   j m p s v t h l q z i c k b # o w n f x

    %hash = map { getkey($_) => $_ } @array;

    %hash = ();
    foreach $_ (@array) {
    $hash{getkey($_)} = $_;
    }

sub key {
    $kp= shift;
...

printKeys(\%p2C);
printKeys(\%C2p);

C:\chas_sandbox>foreachasmap.pl

...
pt:   g h i j k l m n o p q r s t u v w x y z a b c d e f

C:\chas_sandbox>