my $protein;
# split $rna into groups of 3 characters
for ( unpack("(A3)*",$rna)) {
   if (exists($gencode{$_}) {
       $protein.=$gencode{$_};
   } else {
       die "No mapping for [$_]\n";
   }
}