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";