>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