Select Code to Download

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

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

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