It sounds like you have a top-level dispatch table, but (like a tree) you have a lower-level set of dispatches that need to happen on some nodes on specialized information. And what you are doing is handling special cases with a goto which will make it harder later to figure out, "How did I get here?" so that some subroutines can do double-duty.

Instead I would operate as follows:

sub dispatch_edit_product {
  my $query = $_[0];
  if ($query->param("officeID")) {
    edit_office_product(@_);
  }
  else {
    edit_generic_product(@_);
  }
}

sub edit_generic_product {
  my ( $query, $db, $mod, $sec ) = @_;
  # ...
}

sub edit_office_product {
  # ...
}
[download]