#!usr/bin/perl -w
open(IN,"/home/maize/sequence-ID.txt");
open(OUT,">abc.txt");
open(OUT1,">blastresults.txt");
 while($id=<IN>)

{
	
	$id=~s/\n|\r//g;
	open(BLAST,"output/$id");
        
        while($file=<BLAST>)
 	{
	  if ($file=~ m/No hits found/)
	  
		{
		print OUT "$id \n";
		}
		
	
	}
	close(BLAST);

}
close(IN);
close(OUT);
close(OUT1);