# 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;

    my %map = (
        CONTACT =>
            sub { 'HQ' , undef },
        LITERATURE =>
            sub { undef, $row->[4] },
        FAQ =>
            sub { undef, $row->[2] eq 'Service' ? $row->[3] : $row->[4] },
        ORGANIZATION =>
            sub { ($row->[0] eq 'Headquarters' ? 'HQ' : $row->[2]), undef },
    );

    return &{$map{$dcr_type} || croak "Unknown \$dcr_type '$dcr_type'"}();
}