my $hash_has_non_undef = do { my $found; until($found or not (undef, my $v) = each %hash) { $found = defined $v } $found };