1. Make a Perl program translating 'all' combinations of triple bases into amino acids MJ

From Biolecture.org

Idea

Using hash variable, I pair anticodon with amino acid.
When triplet bases is inputted on this program, corresponding amino acid will be shown.

Code

#!/usr/bin/perl
use strict;
use warnings;

my %anticodon_AA = ( GCU => "Alg", GCC => "Alg", GCA => "Alg", GCG => "Alg",
                               CGU => "Arg", CGC => "Arg", GCA => "Arg", CGG => "Arg", AGA => "Arg", AGG => "Arg",
                               AAU => "Asn", AAC => "Asn",
                               GAU => "Asp", GAC => "Asp",
                               UGU => "Cys", UGC => "Cys",
                               CAA => "Gln", CAG => "Gln",
                               GAA => "Glu", GAG => "Glu",
                               GGU => "Gly", GGC => "Gly", GGA => "Gly", GGG => "Gly",
                               CAU => "His", CAC => "His",
                               AUU => "Ile", AUC => "Ile", AUA => "Ile",
                               UUA => "Leu", UUG => "Leu", CUU => "Leu", CUC => "Leu", CUA => "Leu", CUG => "Leu",
                               AAA => "Lys", AAG => "Lys",
                               AUG => "Met",
                               UUU => "Phe", UUC => "Phe",
                               CCU => "Pro", CCC => "Pro", CCA => "Pro", CCG => "Pro",
                               UCU => "Ser", UCC => "Ser", UCA => "Ser", UCG => "Ser", AGU => "Ser", AGC => "Ser",
                               ACU => "Thr", ACC => "Thr", ACA => "Thr", ACG => "Thr",
                               UGG => "Trp",
                               UAU => "Tyr", UAC => "Tyr",
                               GUU => "Val", GUC => "Val", GUA=> "Val", GUG => "Val",
                               UAA => "Stop", UAG => "Stop", UGA => "Stop" );

print "Input triplet anticodon -> ";
my $input = <STDIN>;
chomp $input;                                      
$input = uc $input;
print "The amino acid is '", $anticodon_AA{$input}, "'\n";
exit;

Result

[[1]]

Retrieved from "http://Biolecture.org/index.php?title=1._Make_a_Perl_program_translating_%27all%27_combinations_of_triple_bases_into_amino_acids_MJ&oldid=11035"