foreach $host (keys %Host_Records) {
		#print "Zusammenfassung für Host: ".$host."\n";
		foreach $tp (keys %Host_Records{TP}) {
		print $tp;
		}
	}