if ($x1) {
    if ($x2) {
        print "here\n";
    }
}

if ( $x1 && $x2 ) {
    print "here\n";
}

##</code><code>##

C:\Perl\scripts>perl -MO=Deparse,-x9 mytest.pl
$x1 and do {
    $x2 and do {
        print "here\n"
    }
};
$x1 and $x2 and do {
    print "here\n"
};
mytest.pl syntax OK