Help for this page
my $hash_has_non_undef = sub { while (my ($key, $value) = each %hash) +{ return 1 if defined $value } 0 }->();
@hash{keys %hash} = ();