my @deleted = delete $hash{$key};
(1 == scalar @deleted) || print "oops";

##</code><code>##

(1 == scalar @{[delete $hash{$key}]}) || print "oops";

##</code><code>##

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