use warnings;

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

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

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