Select Code to Download

  DB<122> sub invert {
             my ($h)=@_;
...

  DB<125> invert \%t
 => (1, ["e", "c", "a"], 2, ["b", "d", "f"])