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