my $hash_has_non_undef = sub { while (my ($key, $value) = each %hash) { return 1 if defined $value } 0 }->();

##</code><code>##

@hash{keys %hash} = ();