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

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