my $nohit_list = "data.txt";
open (NOHIT, "<$nohit_list")or die "can't open file: $!";
foreach $line (<NOHIT>) {
    print $line;
my $all = "all.txt";
open (ALL, "<$all") or die "can't open file: $!";
{	local $/ = '>';
	@fasta = <ALL>;
}
my $requery = "requery.txt";
open (FASTA, ">$requery")or die "can't open file: $!";
 my @nohit_fasta = ();
 @nohit_fasta = grep /$line/,@fasta;
 print FASTA @nohit_fasta;