Select Code to Download

$listOfHostsWithProblems{$currentHostname}->{$currentType} = ++$i;

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