Select Code to Download

    if ($category_id eq "all") {
        push @all_matches, SomethingAll(...);
...
    elsif ($category_id eq "subj") {
        push @all_matches, SomethingSubj(...);
    }

my %dispatch_table = (
   all => \&SomethingAll
...
...
my $callback = $dispatch_table{$category_id} || $dispatch_table{_defau
+lt};
push @all_matches, $callback->(...);