scalar grep { defined } delete $hash{$key};