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

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

my $only_one = ($x || $y || $z) && (! ($x && $y)) && (! ($y && $z)) && (! ($z && $x));

my $only_one = (! ($x && $y && $z)) && ($x ^ $y ^ $z);