open (OUT, ">$infile.OUTFILE");
if(($sequence=~/ABC/)		
{
	my $respective_seq=$hash_seqs_all{$protein};	
	print OUT ">$id\n$respective_seq\n";
}
close (OUT);