my $z;
if ($x) {$z  = "true\n"} else {$z  = "false\n"}