my @array = @{ $key };
print join ",", @array;

##</code><code>##

my @array = @{ $reverse_translation{key} };
print join ",", @array;

##</code><code>##

my $array = $reverse_translation{key};
print join ",", @$array;

##</code><code>##

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