while(($hostname, $innerHash) = each(%listOfHostsWithProblems)) {
 foreach $type (keys %innerHash)
   {
     print $listOfHostsWithProblems{$hostname}->{$type} . "\n";
     print "yo";
   }
}