my %dispatch_table = (
   all => \&SomethingAll
   subj => \&SomethingSubj
   _default => \&SomethingDefault
);
...
my $callback = $dispatch_table{$category_id} || $dispatch_table{_default};
push @all_matches, $callback->(...);