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