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

  	}
  	close $IN;
  	
  }