open (PIR,'/home/sampir.txt');
while (<PIR>)
{
	if (/^ENTRY/)	{$entry = $_;}
	elsif(/^TITLE/)	{$title = (s/                   /\n\t\t /g,$_);}
	elsif(/^ORGANISM/){$org = (s/                   /\n\t\t /g,$_);}
	elsif(/^ACCESSIONS/){$acc = $_;}
	else
	{	
		@arr = $_;
	}
	if (defined $array2[0])
	{
		@array = split('',$arr[0]);
	}
	
}
print @array;

##</code><code>##

ENTRY            CCHU       #type complete
TITLE            cytochrome c [validated] - human
ORGANISM         #formal_name Homo sapiens #common_name man
ACCESSIONS       A31764; A05676; I55192; A00001
MGDVEKGKKIFIMKCSQCHTVEMGDVEKGGKHKTGPNLHGLFGRKTGQAPGYSYTAANKNKGIIWGEDTLMEYLENPKKYIP
ENTRY            CCCZ       #type complete
TITLE            cytochrome c - chimpanzee (tentative sequence)
ORGANISM         #formal_name Pan troglodytes #common_name chimpanzee
ACCESSIONS       A00002
GDVEKGKKIFIMKCSQCHTVEKGSSSKHKSSSTGPNLHGLFGRKTGQAPGYSYTAANKNKGIIWGED
ENTRY            CCMQR      #type complete
TITLE            cytochrome c - rhesus macaque (tentative sequence)
ORGANISM         #formal_name Macaca mulatta #common_name rhesus macaque
ACCESSIONS       A00003
GDVEKGKKIFIMKCSQCHTVEKGGSSSSKHKTGPNLHGLFGAAAAAAAARKTGQAPGYSYTAANKSSSSNKGITWGEDTLMEYLENPKKYIPGTKMIFVGIKKKEE
ENTRY            CCMKP      #type complete
TITLE            cytochrome c - spider monkey
ORGANISM         #formal_name Ateles sp. #common_name spider monkey
ACCESSIONS       A00004
GDVFKGKRIFIMKCSQCHTVESSSSKGGKHKTGPNLHGLFGSSSSSSSSSSR

##</code><code>##

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