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