#!/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";