$menuitem = [ [command => 'Open'], [command => 'close'] ]; $menubar->cascade(-label => 'Edit', -tearoff => 0, -menuitems => $menuitem);