sub division_service {

  my ($dcr_type, @row) = ( uc $_[0], @{$_[1]} );

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

}