open(IN,'<'.$f) || die "Can not open file $datei: $!";
  	while(<IN>){
  		$n=$n+1;
  		printf "$n.)$_";
 		  if (grep{$_} @searchstring)
	  	{
  	  print "\nfound in $f in $z\n\n"
  	  }
  	  else
  	  {
  	   	
  	  }

  	}
  	close IN;