It looks like it should work. I tried the following on Win32 Active Perl 5.8.

test1.pl

my @a;
foreach(1..50){
    $a[$_-1] = $_;
}

open(T, "test2.pl @a|");
while(<T>){
    print;
}
close(T);
[download]

test2.pl

foreach(@ARGV){
    print "$_\n";
}
[download]

If I run test1.pl, I get 1..50 printed out on seperate lines, just like you would expect.

UPDATE: Also works on Red Hat Linux 9. (Just change "test2.pl @a|" to "./test2.pl @a|" of course).