use Data::Dumper; print Dumper(\(%hash, %inverted_hash)); # Output: # $VAR1 = { # 'c' => 3, # 'a' => 1, # 'b' => 2 # }; # $VAR2 = { # '1' => 'a', # '3' => 'c', # '2' => 'b' # };