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

##</code><code>##

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

##</code><code>##

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