foreach my $code ( 
            sort { $dept_n_code{$a}->{'dept'}
               <=> $dept_n_code{$b}->{'dept'} }
            keys %dept_n_code )
    {
        my $desc = $code_map->{$code};
        my $out_line = pack $pack_template,
                        $code, $desc,
                        $dept_n_code{$code}->{'dept'},
                        $dept_n_code{$code}->{'count'};
        print REPORT "$out_line\n";
    }