#!/usr/bin/perl
use warnings;
use strict;
open OUTPUT, ">C:\\Users\\Jems\\Desktop\\Perl\\PFAMin.txt" or die $!;
open ANUMBER, "C:\\Users\\Jems\\Desktop\\Perl\\AccessionNumbersfull.txt" or die $!;
our @acnumbers;
select OUTPUT;
$|=1;
foreach (<ANUMBER>){
	chomp;
	push (@acnumbers, $_);}
$/="\/\/";

our $acnumbers;
our @list;

foreach $acnumbers(@acnumbers){
	
	open PFAMDB, "C:\\Users\\Jems\\Desktop\\Perl\\Pfam-A.seed" or die $!;
	my $unit;
	foreach $unit(<PFAMDB>){
		my @units= split /#/,$unit;
		my @pfx=grep(/=GF AC/,@units);
		foreach (@pfx){s/=GF AC/\x20/};
		our $units;
		foreach $units(@units){
			if ($units=~/.*AC $acnumbers/){
			push (@list, @pfx);
			}else{next}
		}
	
	}
	
	print "$acnumbers is in:";
	print "@list \n";
	undef @list;
}