foreach my $key (keys %translation) {
   print("$key: ");
   print(join(",", @{ $translation{$key} }));
   print("\n");
}