sub foo { my @a = qw(a b); my @b = qw(c d); return (@a, @b); }
@return_val = foo();