Select Code to Download

foreach my ($key1, $key2)  (keys  %hoh)
{
### CODE ###
}

foreach my $key1 (keys %hoh) 
    {
...
    ### CODE ###
    }
}