hashiter - allow destructive hash iterators
use hashiter;
while (($key, $val)=each %hash){ delete $hash{$key} unless $val; }
no hashiter;
This is a new user-pragma since cperl-5.29.0 to allow destructive changes of hash keys while iterating over the hash.
Without use hashiter, deletion and insertion of hash keys during iteration over this hash is forbidden, even the old perl lazydel scheme.