use warnings;

@array1=(1..3);
@array2=(4..6);

$ref_array1=\@array1;
$ref_array2=\@array2;

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

##</code><code>##

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

print @$ref_arr1;
print @$ref_arr2;