[Bioperl-l] array of SeqIO objects

[Liu Haifeng]

Hi,

I am creating an array of  Bio::SeqIO objects from an input Fasta file
by the following script:

$in=Bio::SeqIO->new('-file' => $ARGV[0], '-format'=>'Fasta');
@seqs=();
while ($seqobj=$in->next_seq()) {
      push @seqs,$seqobj;
}

However, when I print the elements of @seqs, I found that those elements
are the same as the first sequence in the input file.  I would be very
greatful if somebody can help me with the problem.

Thanks,
Haifeng

DS/IFL, DSO National Laboratories
Singapore 118230