Help for this page

Select Code to Download

Select or download this

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

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