@cases = [
  # etc
  {
    case => 'l',
    desc => 'co_or to change the menu item color',
    func => sub {
      print "change menu item color to: ";
      my $newcolor=<>;
      chomp $newcolor;
      $color=colorize($newcolor);  
    },
  },
  # etc
};