foreach my $host (keys(%listOfHostsWithProblems)) {
   my $problems = $listOfHostsWithProblems{$host};
   foreach my $type (keys %$problems) {
      my $problem = $problems->{$type};
      print "$host: $type: $problem\n";
   }
}