my $a = 1;
my $b = 2;
$a && $b = 3;

##</code><code>##

use strict;
use warnings;
sub a
{
    $_[0] = 3;
}
my $x = 0;
my $y = 5;
a($x && $y);
print "$x\n";