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