Select Code to Download

my @array1 = ("foo", "foo1", "foo2");
my @array2 = ("bar", "bar1", "bar2");
...
    @array1 = @_; #array1 gets all of @_
    @array2 = @_; #array2 also gets all of @_
}

print_data(\@array1, \@array2);

...
    my @data1 = @{$_[0]}; #dereferences first array into @data1
    my @data2 = @{$_[1]}; #dereferences second array into @data2
}