for (sort { $a <=> $b } keys %{ $Diags{$key} } )
    {
        if (exists $DiagCodes{$_}) 
        {
            printf $fh1 "    %s: %d, %d\n",
                        $DiagNames{ $DiagCodes{$_} },
                        $_,
                        $Diags{$key}->{$_};
        }
        else
        {
            printf $fh1 "    Unrecognized code: %d\n", $_;
        }
    }


##</code><code>##

foreach (sort {$a cmp $b} keys %{$Diags}$key}})