sub exactly_one { 1 == grep $_, @_; }