$VAR1 = {
          '-text' => 'To Lower Case',
          '-command' => sub {
                                &change_mode(1);
                            }
        };
$VAR1 = {
          '-text' => 'To Upper Case',
          '-command' => 'returning: 2 '
        };
$VAR1 = {
          '-text' => 'To Mixed Case',
          '-command' => 'returning: 3 '
        };