foreach my $host (keys(%listOfHostsWithProblems)) {
   foreach my $type (keys(%{$listOfHostsWithProblems{$host}})) {
      print "$host: $type: $listOfHostsWithProblems{$host}{$type}\n";
   }
}