Help for this page
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