my $tag = $tag_obj->seq;
		print "tag = ",$tag,"\n";
		my $RC_tag = reverse $tag =~ tr/ACTGactg/TGACtgac/;