my $k;
delete $hash{$k} while $k = each %hash;

##</code><code>##

delete $hash{$_} for keys %hash;