%Host_Records = {
	TP_RECORDS => %APP,
	ERRORS => @ERROR_LIST,
};

		if(defined $Host_Records{$hostname}) {
		#aktualisieren
			print "Aktualisiere...\n";
			if(defined $Host_Records{$hostname}->{TP_RECORDS}{$TP}) {
				print "Existiert bereits...\n";
			}
			
		}#if
		
		else {
		#Neu Anlegen
			$Host_Records{$hostname} = $hostname;
			$Host_Records{$hostname}->{TP_RECORDS}{$TP} = $TP;
			
			if($_ =~ /\d\d:\d\d:\d\d:\d\d\d secinfo denied/) {
				print "Fehler!\n";
				push @{(Host_Records{$hostname}->{ERRORS}, $_)};
				print $Host_Records{$hostname}->{ERRORS}[0];
			}#ERROR
			
			#print $Host_Records{$hostname}->{TP_RECORDS}{$TP};
			#print "\n";	
			
		}#else