Select Code to Download

my %reverse_translation = reverse %translation;

while ( my ( $key, $val ) = each %translation ) {
    print STDERR "$key\n";
#   print join( ",", @$val ), "\n";
}