You can return the arrays as ref's for us in main like this.

 my ($arr1,$arr2) = &sub();

sub {
     return \(@arr1, @arr2);
}
[download]

And then you can access the arrays with:

$arr1->[0] $arr2->[1] etc.

HTH

-Prime

Update:Beaten to the punch again :)