opendir DC, $dir or die "cann't open dir";
			my @filenames = sort readdir(DC);
			@filenames = reverse(@filenames);
	closedir(DC);	
	
	foreach my $file (@filenames) {
	   	my($filename, $dirname, $ftype) = fileparse($file, qr/\..*/, qr/\.(txt)/);

		#abschneiden buchstabe
		if (substr($filename, -1) =~ m/[a-z]/i) { 
			chop($filename);
		}
		push (@test, $filename, $file);		
	}	
		
		
	for my $file(@test) {
		my ($root) = split(/\_/,$file);
		next if(exists($hash{$root}));
		$hash{$root} = $file;
		}
	
	my @unique = values(%hash);