i=0;
while(<FILE1>){
	if($_ =~ m/.datafield$/i){
		my '$datei i' = m/^c:\\/i && m/.datafield$/i;
		#open(FILE2,"<$pfad")||die "\n Datei $infile1 konnte nicht geoeffnet werden\n";
		my @dateien =($datei i);
		i++;
	}
}



open(
my @Datafield_List = <FILE1>;