Select Code to Download

my @cat = qw/ Audio Graphics Network Settings System Utility /; # in y
+our desired order
my $regex = join "|", @cat;
my @files = glob "/usr/share/applications/*.desktop"; # as before

for my $category ( @cat ) {
    next unless exists $data{ $category };
    print "Submenu = \"$category\" {\n";
        . . . . .