foreach my $app (@sorted_applications) {
      $app = lc $app;
      if ( "$app" lt "b" ) {
         push  ( @{ $aMenu{MenuItems} }, $app);
         next;
      } elsif ($app lt "c" ) {
         push  (@{ $bMenu{MenuItems} },$app);
         next;
...