foreach my $department ( sort keys %$department_category_author ) {
foreach my $category ( sort keys %{ $department_category_author->{$department} } ) {
foreach my $authid ( @{ $department_category_author->{$department}->{$category} } ) {
foreach my $type ( keys %{ $authors->{$authid} } ) {
next unless exists $authors->{$authid}->{$type}->{$category};
foreach my $department ( sort keys %$department_category_author ) {
foreach my $category ( sort keys %{ $department_category_author->{$department} } ) {
foreach my $authid ( @{ $department_category_author->{$department}->{$category} } ) {
foreach my $type ( keys %{ $authors->{$authid} } ) {
next unless exists $authors->{$authid}->{$type}->{$category};