Select Code to Download

my %data = (
A => { A => 5,  R => -2, N => -1 },
R => { A => -2, R => 7,  N => -1 },
N => { A => -1, R => -1, N => 7 },
);

my @aminos= qw(A R N D C Q E G H I L K M F P S T W Y V B Z X);
sub multiplyRates {
...
    }
    return \%$multiplyrate;
}