Select Code to Download

my %dna = ('nucleotide1' => {A => 25, T => 25, G => 25, C => 25},
          'nucleotide2' => {A => 10, T => 15, G => 50, C => 25},
          etc...
          );

$dna{nucleotide2}->{T};