Select Code to Download

use strict;
use warnings;
...
   next unless $#{$d2{$k}} >0;
   print "$k:\t (", join (",",sort @{$d2{$k}}),")\n";
}

barney:     (flintstones,simpsons)
fred:       (flintstones,jetsons,simpsons)
george:     (flintstones,jetsons)