while( my $line = <TEXTDAT> ) {
	chomp $line;
	my @daten = split( /!/, $line );
	if($merker != $daten[1]) {
		$merker = $daten[1];
		$hits++;
		push @array, $merker;
	}
	
}