my $tps = $Host_Records{TP}->{$host};
foreach $tp (keys %$tps) {