for my $key { sort keys %Hash )
    {   ... do something ...
        if ( $Debug >= 4 ) { print $DLOG "Hash:\t$key\t|$Hash{$key}|\n"; }
    }