perl -le '$x = (1,2); print $x';   # prints 2
perl -le '($x) = (1,2); print $x'; # prints 1