for(my $i...){

    system ("perl foo.pl X Y");
...
}