my %hash = map { my $item = pop @$_; map { $_, $item } @$_ }
  [qw(HELP ?) => sub { ... }],
  [qw(QUIT EXIT LEAVE) => sub { ... }],
  ...;