print "tag \t= $tag\n";
         my $RC_tag = reverse($tag);
         print "RC_tag \t= $RC_tag\n";
         $RC_tag =~ tr/ACTGactg/TGACtgac/;
         print "RC_tag \t= $RC_tag\n";