# @pair contains all the keys.

 my @pair = $pair;
 my @value = $value;

 %hash = map {$pair[$_] => $value[$_]} 0..$#pair;

              while (($key, $value) = each (%hash))  {

                      if ($key eq 'TG')   {

                           $TG_score = $value;
                     }



       print "The value of $key is:$value";

     }


##</code><code>##


The value of TG
AT
CG
 is: 3
2
2

##</code><code>##

The value of TG is:3