sub f { return( 'a', 'b', reverse(1..3) ); }
my @list = f();
my $scalar = f();