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