Select Code to Download

foreach $key (sort(keys(%hash)))
{
    print "Key = $key, value= $hash{$key}\n";
}

foreach $key (sort(keys(%hash)))
{
    print join(/ /,keys(%{$hash{$key}}),"\n";
}