my $a = 0;
my $b = 2;
my $z = \($a && $b);
$$z = 4;
print $a;