$ perl -wE'
sub foo { return 6,7,8 }
say scalar foo()'
8
$ perl -wE'sub foo { my @a = (6,7,8); return @a[1,2] }
say scalar foo()'
8