use strict;
#use warnings;

my $x = (1,2,3); # $x is 3, list in scalar context
my @y = (4 .. 6); # @y is (4,5,6);
my $y = @y; # $y is 3, array in scalar context
my $z = 0 .. 0;  # $z is true
my $w = 1 .. 3;  # $w is false

print "$x, $y, $z, $w\n";