sub get_oligo_seqs{
    my ($fh) = shift;
    return map { ( split /\t/ )[1] } <$fh>;
}