length delete ($hash{$key}) || print " There is some error : $! ";
[download]

update - Oops. A kyle states below, length doesn't work with zero length hash values. So, use

defined delete ($hash{$key}) || print " There is some error : $! ";
[download]

Ah.. well... I can see the next problem: what if you say $hash{$key} = undef? In that case defined(delete) will fail

perl -le '$h{""}=undef; print ">",defined delete $h{""},"<"'
><
[download]

since delete returns undef here. So, probably best advice is:

• don't stuff values into a hash using a null string or undef as key
• don't stuff empty values / undef as a value into a hash
• if you delete those emptinesses, don't care too much about the return value.

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}