Select Code to Download

use warnings;

...
$ref_array2=\@array2;

system("print.pl",$ref_array1,$ref_array2);

use warnings;
($ref_arr1,$ref_arr2)=@ARGV;

print @$ref_arr1;
print @$ref_arr2;