# Note the | here. This allows you to write to your script
open(SCRIPTS, "| /tmp/scripts.pl") or die;
foreach my $line (@ARRAY) {
  print SCRIPTS $line . "\n";
}
close SCRIPTS;