#!/usr/bin/perl

# program.pl

use warnings;
use strict;

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

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

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