$ perl -e'my $hohr = {foo=>{},bar=>{},baz=>{}};print delete ($hohr->{baz}), $/;print keys %$hohr'
HASH(0x804b5c0)
barfoo$