my %keyval = ();
   while(<KEY>){
        ($s1,$s2) = split(/,/);
         $keyval{$s1} = $s2;
   }