$ perl -wl
sub get_values {
    return ('a', 'b', 'c');
}

my $result = undef;
$result = get_values();
print $result;

($result) = get_values();
print $result;
__END__
c
a