if($x1 && (warn '$x1 OK... ') && $x2) {
  print "here\n";
}