#! perl -slw
use strict;
use Data::Dump qw[ pp ];

my %data;

while( <DATA> ) {
    my @bits = split;
    push @{ $data{ pop @bits } }, \@bits;
}

pp \%data;

__DATA__
AsmA_2               PF13502      220 A0KIJ1
AsmA_2               PF13502      220 A0KIJ1
DUF490               PF04357      379 A1AJD0
Pfam-B_5656          PB005656     259 A1AJD0
STN                  PF07660       52 T2MWK7
Secretin_N_2         PF07655       98 T2MZK3
Pfam-B_2175          PB002175     114 T2MVV9
Secretin_N           PF03958       82 U2ZRR1
Pfam-B_1479          PB001479     704 U2ZRR1
Pfam-B_2175          PB002175     114 U2ZRR1