my %hash = ( Carol => 22, Mary => 21, Chris => 30 );
map { delete $hash{$_} } keys %hash;