$ perl -e 'my $a=(1 == 1) && (0);print "$a\n";'
0
$ perl -e 'my $a=(1 == 1) and (0);print "$a\n";'
1
$ perl -e 'my $a=((1 == 1) and (0));print "$a\n";'
0