my %menus;
foreach my $app (map {lc $_} @sorted_applications) {
  $menus{$app} ||= { label => "  ".uc($app), MenuItems => [] };
  push @{ $menus{$app}->{MenuItems} }, $app;
}