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