foreach my ($key1, $key2)  (keys  %hoh)
{
### CODE ###
}
##</code><code>##

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