sub get_oligo_seqs{
    my ($fh) = shift;
    my @seqs;
    while(<$fh>){
        my @fields = split /\t/;
        my $oligos = $fields[1];
        push(@seqs,($oligos));
    }
    return @seqs;
}