open( PROG, '| /tmp/scripts.pl' ); for ( @ARRAY ) { print PROG $_; } close( PROG );