my %menus = (
  '1' => {
    'ITEM'    => 'List and Kill UDT* processes by user',
    'ACTION'  => sub { $RunCMD->('ListKillProc') },
  },

  '2' => {
    'ITEM'    => 'List and Kill Print Jobs',
    'ACTION'  => sub { $PrintSubmenu->('2') },
    . . .