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

##</code><code>##

  print $innerHash->{ $type } . "\n";