Select Code to Download

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

   foreach my $app (@sorted_applications) {
      $app = lc $app;
...
         push  (@{ $bMenu{MenuItems} },$app);
         next;
...

         print " @{$aMenu{MenuItems}}[0]\n";

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