# return a list consisting of correct division and service
# as a function of $dcr_type and @row
sub division_service {
    my $dcr_type = uc shift;
    my $row = shift;

    return
        $dcr_type eq 'CONTACT' ?
            ('HQ' , undef) :
        $dcr_type eq 'FAQ' ?
            (undef, $row->[2] eq 'Service' ? $row->[3] : $row->[4]) :
        $dcr_type eq 'LITERATURE' ?
            (undef, $row->[4]) :
        $dcr_type eq 'ORGANIZATION' ?
            (($row->[0] eq 'Headquarters' ? 'HQ' : $row->[2]), undef) :
        croak "Unknown \$dcr_type '$dcr_type'";
}