Two different questions I don't understand.

Do you want to print all keys for the same value?

Try building a reversed hash of arrays with push @{$reverse{$val}}, $key

Please show desired input and output and what you tried and I'm sure someone will help you.