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