my ($arr1, $arr2) = &sub();
print join("\n",@$arr1);
print join("\n",@$arr2);

sub sub {
    my @arr1 = qw(foo bar quux);
    my @arr2 = (1,2,3);

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