@txtliste= grep{ $_ =~ /\.txt/  and -f $_ }             
		   map{ $ziel . '\\' . $_ }                   
	       readdir($dhandle2);							
print Dumper(@txtliste);
if( open my $out, '>', $ziel . '\\' . $DateiZumSchreiben ){