my ($ref1, $ref2) = retarrayrefs();
my @arr1=@$ref1;
my @arr2=@$ref2;

sub retarrayrefs {
 my @arr1=qw(one two three);
 my @arr2=qw(four five six seven);
 return (\@arr1,\@arr2);
}