$/="\/\/";
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;
}

##</code><code>##

foreach (<DATABASE>){push (@uniprot,$_);}

my $i;
my $name;
	foreach $uniprot(@uniprot){
	our $acc;
	my @splitted=split /\||=/,$uniprot;
	
	foreach $i(@splitted){
		if ($i=~/\b\w{6}\b/ and $i !~/\_/){
			$acc=$i;
		}
		elsif ($i=~ /.+(?= OS)/){
			$name=$i;
		}
		else {next;}
	
	my $unit;
$/="\/\/";
open PFAMDB, 'C:\Users\Jems\Desktop\Perl\PFAM.txt' or die $!;	
	foreach $unit(<PFAMDB>){
		my @units= split /#/,$unit;
		my @pfx=grep(/=GF AC/,@units);
		
		our $units;
		foreach $units(@units){
		

			if ($units=~/.*AC $acc/){
			push (@list, @pfx);
			
			}else{next}
		}
	
	}
	print "$acc, also called $name, is in:"
	print @list;
	
	undef @list;
}}