......
        s/^>//mg;
	my ($name) = /^([^\n]+)/;

	    if($hash{$name} == 10){
		select FILE1;
	    }
	    if($hash{$name} == 20){
		select FILE2;
	    }
	    if($hash{$name} == 30){
		select FILE3;
	    }
	    }
	#print ">$_";
	my $output = $_;
	print ">$output\n";