while (<FASTA>)
    {
	s/^>//mg;
#	print "$_";
	my ($name) = /^([^\n]+)/;
	
	#my ($name) = /^([\w.]+)/;
      
	#print "$name\n";
	    if($hash{$name} == 10){
		select FILE1;
	    }
	    if($hash{$name} == 20){
		select FILE2;
	    }
	    if($hash{$name} == 30){
		select FILE3;
	    }
	#print ">$_";
	my $output = $_;
	my (@title) = split(/\n/,$output);
	print ">".$title[0]."\n".$title[1]."\n";
}