use strict;
use warnings;

# test 1
my ($a,$b,$c)=(1,1,1);
if ($a && $b && $c){
  print "All true\n";
} else {
  print "Not all true\n";
}

# test 2
($a,$b,$c)=(0,1,1);
if ($a && $b && $c){
  print "All true\n";
} else {
  print "Not all true\n";
}