Tip: Don't test with lists whose last item is the same as the number of elements.

my $x = (1,2,3);
my $y =()= (1,2,3);
print "$x / $y\n";        # prints "3 / 3"
$x = ("a","b","c");
$y =()= ("a","b","c");
print "$x / $y\n";        # prints "c / 3"
[download]

See also Comma Operator