hey graff, thank ya, u got my problem rite.i tried writting the code the way u said, and i got the answer, but the problem which i am facing now is, i had to save each element of that array in to a new array and split the characters. to make it clear, the program is now like this.

open (PIR,'/home/guest/sampir.txt');
my @arr = ();
while (<PIR>)
{
    chomp;
    if( /^ENTRY/ ) { $entry = $_ }
    elsif ( /^(TITLE)\s+(\S.*)/ ) { $title = "$1\n\t $2" }
    elsif ( /^(ORGANISM)\s+(\S.*)/ ) { $org = "$1\n\t $2" }
    elsif ( /^ACCESSIONS/ ) { $acc = $_ }
    else {
        push @se, $_;
    }
}
[download]

and i tried splitting it up like this

foreach $r(@se)
{
@y=split(//,$r);
}
[download]

but am not getting the answer. how to go abt it.?