$ perl -MO=Deparse,-p,-q <<'EOT'
sub return_list { return 3, 2, 1 }

my $result = return_list();
print "$result\n";

$result = 3, 2, 1;
print "$result\n";

$result = ( 3, 2, 1 );
print "$result\n";
EOT
sub return_list {
    return(3, 2, 1);
}
(my $result = return_list());
print(($result . "\n"));
(($result = 3), '???', '???');
print(($result . "\n"));
($result = ('???', '???', 1));
print(($result . "\n"));
- syntax OK