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