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