$/="\/\/";
our @acnumbers=qw(P0A252 Q9AT80 Q0HKB6);
our $acnumbers;


foreach $acnumbers(@acnumbers){
	my $unit;
	foreach $unit(<PFAMDB>){
		my @units= split /#/,$unit;
		my @pfx=grep(/=GF AC/,@units);
		our $units;
		foreach $units(@units){
			if ($units=~/.*AC $acnumbers/){
			push (@list, @pfx);
			}else{next}
		}
	
	}
	print "$acnumbers is in:";
	print @list;
	undef @list;
}