$ perl -MO=Deparse,-p -e " $foo = 1, 2; "
(($foo = 1), '???');
-e syntax OK

##</code><code>##

$ perl -MO=Deparse,-p -e " $one, $two = 1, 2; "
($one, ($two = 1), '???');
-e syntax OK

##</code><code>##

$ perl -MO=Deparse,-p -e " sub foo { 1, 2 } $one, $two = foo(); "
sub foo {
    (1, 2);
}
($one, ($two = foo()));
-e syntax OK