Select Code to Download

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

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