foreach $key (keys %food_color) {
   if (uc($key) eq uc($new_key)) {
       $food_color{$key} = $new_value;
   }
}