foreach $host (keys %Host_Records) {
		print "Zusammenfassung für Host: ".$host."\n";
		my $tps = $Host_Records{TP}->{$host};
		foreach $tp (keys %$tps) {
			print "Programm: ".$tp."\n";
		}
	}