# STOCKHOLM 1.0
#=GF ID   1-cysPrx_C
#=GF AC   PF10417.4
#=GF DE   C-terminal domain of 1-Cys peroxiredoxin
#=GF AU   Finn RD, Coggill PC
#=GF SE   Gene3D, pdb_1prx
...
#=GS A3EU39_9BACT/160-195  AC A3EU39.1
#=GS Q7VQB3_BLOFL/159-194  AC Q7VQB3.1
#=GS Q057V5_BUCCC/160-195  AC Q057V5.1
#=GS A5CDZ8_ORITB/160-195  AC A5CDZ8.1
...
//
Similar set of data with different numbers.

##</code><code>##

A3EU39 | PF10417.4/ PF10000.3
Q7VQB3 | PF10417.4/...

##</code><code>##

my %hash;
open PFAMDB, "C:\\Users\\Jems\\Desktop\\Perl\\Pfam-A.seed" or die $!;
#thats the main file.	
while (my $pfam=<PFAMDB>){
	my @units= split /#/,$pfam;
if ($pfam=~ =GF AC){my $pf=$pfam;}
if ($pfam=~ \sAC\s){if exists $hash{$pfam}{$hash{$pfam}=$pf}
else .....