#in my calling script
system(qq(perl script2.pl @theArray));

##</code><code>##

 
#in my reciving script
my @RecivedArray;
if ($#ARGV != 0)
{
die " no argument was passed\n";
}
@RecivedArray = $ARGV[0];