Select Code to Download

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

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