my $hash_has_non_undef = do {
    local $_;
    my $found = 0;

    defined && ($found++, last)
        while (undef, $_) = each %hash;

    $found;
};