Select Code to Download

#!/usr/bin/env perl

...

use Data::Dump;
dd \%h, \%i, \%j;

$ pm_hash_invert.pl
(
...
  { 1 => ["a", "e", "c"], 2 => ["f", "b", "d"] },
  { 1 => ["a", "e", "c"], 2 => ["f", "b", "d"] },
)