Select Code to Download

my %Menu = {
  app1 => {
...
         MenuItems => [ @MenuItems ]
  },
};

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