Select Code to Download

#!/usr/bin/perl

...
my $ref_array2 = \@array2;

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

#!/usr/bin/perl

...
my ( $ref_string1 ,$ref_string2 ) = @ARGV;

print "$ref_string1, $ref_string2\n";

#!/usr/bin/perl

...
# instead of passing the data as the parameters, pass the file name in
+stead

system( "./print.pl", $store_file );

#!/usr/bin/perl

...
my ( $aref1 ,$aref2 ) = @{ $aoa };

print "@{ $aref1 }, @{ $aref2 }\n";