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"