sub ret_arr   { return( ["foo"],["bar"],["baz"] ) }
sub print_arr { print @$_ for @_ }

my @arr = ret_arr();
print_arr(@arr);

__output__

foobarbaz