Select Code to Download

open (PIR,'/home/sampir.txt');
while (<PIR>)
...
    
}
print @array;

ENTRY            CCHU       #type complete
TITLE            cytochrome c [validated] - human
...
ORGANISM         #formal_name Ateles sp. #common_name spider monkey
ACCESSIONS       A00004
GDVFKGKRIFIMKCSQCHTVESSSSKGGKHKTGPNLHGLFGSSSSSSSSSSR

    my @unique = ();
    my %seen   = ();
...
        next if $seen{ $elem }++;
        push @unique, $elem;
        }