Select Code to Download

 
sub revcompl {
  my (@dna) = @_;
...
  $done = join('',@dr);
  return $done;
}

 $stringforsequence=$hashofseqs{someIDnr};
$reversedsequence=revcompl($stringforsequence);
print "$reversedsequence";