while (my $uniqueseq = $stream->next_seq()) { 
               push @oligomers, $uniqueseq->seq; }