my $y = 1; $y = 0 if (!$x);