foreach my $abc_menu (@menu_bar_names) {
         print " @{$abc_menu{MenuItems}}[0]\n";
}