##
sub zero { print "zero\n"; 0 }
sub two { print "two\n"; 2 }
sub three { print "three\n"; 3 }
my $x = zero && two; print "\$x is = $x\n\n";
my $y = three && zero; print "\$y is = $y\n\n";
my $z = two && three; print "\$z is = $z\n\n";
####
zero
$x is = 0 <--- two never called
three
zero
$y is = 0
two
three
$z is = 3