>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