Select Code to Download

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

@hash{keys %hash} = ();