Select Code to Download

while(($key,$value)=each(%by_key)
{
   $current_key_list_aref = $key_list_by_value{$value};
   push(@$current_key_list_aref,$key);
}