Select Code to Download

my ($ref1, $ref2) = retarrayrefs();
...
 my @arr2=qw(four five six seven);
 return (\@arr1,\@arr2);
}

my (@arr1,@arr2) = ( ${retarrays()[0]}, ${retarrays()[1]} );