my @code_data = [
    ['US','USA','USD'],
# ...
];
my %translator = map { $_->[0] => $_,
                       $_->[1] => $_,
                       $_->[2] => $_ 
                     } @code_data;
use constant ccode => 0;
use conatant country => 1;
use constant currency => 2;
print $translator{USA}[currency];
print $translator{USD)[ccode];