Select Code to Download

#! perl
use strict;
...

my  %dup_rev = safe_reverse \%t;
dd \%dup_rev;

 0:56 >perl 729_SoPW.pl
{ a => 1, b => 2, c => 1, d => 2, e => 1, f => 2 }
{ 1 => ["c", "e", "a"], 2 => ["b", "d", "f"] }

 0:57 >