sub return_list { return 3, 2, 1 }

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

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