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