Select Code to Download

%hash = (
  HELP => sub { ... },
...
  EXIT => $_{QUIT},
  LEAVE => $_{QUIT},
);

%hash = (
  HELP => sub { ... },
...
);
$hash{'?'} = $hash{HELP};
$hash{EXIT} = $hash{LEAVE} = $hash{QUIT};