Select Code to Download

while( my $seq = $in->next_seq  ) {
      print $i++, " : ", $seq->seq(), "\n";
   }

my @seqs; 
while(my $s = $in->next_seq ) { push @seqs, $s; }
# now do your loop of trials