#!/usr/bin/perl
use warnings;
use strict;

my $zero = 0;
my $two = 2;
my $three = 3;

my $x = $zero && $two;
my $y = $three && $zero;
my $z = $two && $three;

print "\$x is = $x\n";
print "\$y is = $y\n";
print "\$z is = $z\n";


##</code><code>##

$x is = 0
$y is = 0
$z is = 3

##</code><code>##

$x is = 0
$y is = 3
$z is = 2