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