Select Code to Download

# return a list consisting of correct division and service
# as a function of $dcr_type and @row
...

}

my %division_service =
  (
...

    }
  }

sub division_service {

...
  $division_service{$dcr_type}->(@row);

}