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