DNA Reverse Complement

sub revdnacomp {
  my $dna = @_;
  my $revcomp = reverse($dna);

  $revcomp =~ tr/ACGTacgt/TGCAtgca/;

  return $revcomp;
}