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

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