my ($r_array1, $r_array2) = foo();
print "@$r_array1\n";
print "@$r_array2\n";

sub foo {
	my @array1 = [1..5];
	my @array2 = [6..10];
	return (\@array1, \@array2);
}