Select Code to Download

my @code_data = [
    ['US','USA','USD'],
...
use constant currency => 2;
print $translator{USA}[currency];
print $translator{USD)[ccode];

# construct %translator as before, but only for unique keys
for (@code_data) {
    push @{$translator{$_->[currency]}}, $_;
}