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";
                }
        }