Select Code to Download

    my %merge;
    for my $key (  keys %myhash  )
    {
        push @{ $merge{ join $;, sort @{ $myhash{$key}} } }, $key;
    }

#! perl -w
use strict;
...
                          'd'
                        ]
         };