Select Code to Download

#!/usr/bin/env perl

...
foreach my $key (sort keys %code){
    print "$key\t$code{$key}\n";
}

A ABC DEF GHI JKL
B QRS TUV WXY
C EYE LUV YOU

ABC    A
DEF    A
...
TUV    B
WXY    B
YOU    C