Select Code to Download

for my $key1 (sort keys %myhash) {
    print $key1, "\n";
...
        print "\t", $key2, " => ", $myhash{$key1}{$key2}, "\n";
    }
}

use Data::Dumper;
print Dumper \%myhash;