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