my @menu_bar_names = qw ( aMenu bMenu ... );
       my @MenuItems="";
       my %aMenu = { label => "  A",
                     MenuItems => [ @MenuItems ] };
       my %bMenu = { label => "  B",
                     MenuItems => [ @MenuItems ] };
       my %cMenu = { label => "  C",
                      MenuItems => [ @MenuItems ] };