$ perl -MO=Deparse,-p -e ' $x= "a","b"  '
(($x = 'a'), '???');
$ perl -MO=Deparse,-p -e ' $x=("a","b") '
($x = ('???', 'b'));