if (1 == do {my $cnt=0; $_ and $cnt++ for ($x,$y,$z); $cnt } {
  print "Exactly one variable set\n";
}