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