my $only_one = 1 == ($x ? 1 : 0) + ($y ? 1 : 0) + ($z ? 1 :0);            

my $only_one = 2 == (! $x) + (! $y) + (! $z);