>perl -le"sub f { 'a','b','c' } my @v=f(); print for @v"
a
b
c

>perl -le"sub f { my @a = ('a','b','c'); @a } my @v=f(); print for @v"
a
b
c

##</code><code>##

>perl -le"sub f { 'a','b','c' } my $v=f(); print $v"
c

>perl -le"sub f { my @a = ('a','b','c'); @a } my $v=f(); print $v"
3

##</code><code>##

(my $first)                   = f();
(my $first, undef, my $third) = f();
(undef, my $second)           = f();

##</code><code>##

my ($first)                = f();
my ($first, undef, $third) = f();
my (undef, $second)        = f();

##</code><code>##

my $first           = ( f() )[0];
my ($first, $third) = ( f() )[1,3];
my $second          = ( f() )[2];