PARALLEL PROCESSING IN PERL

HI All,
I have scenerio where I need to call sub modules through for loop

for (i=0; i<30 ;i++)
{
..

..
..
subroutine 1;
subroutine 2;
}
I want this to be run in parallel

process1
{
...
...
subroutine 1;
subroutine 2;
}

process2
{
....
....
subroutine 1;
subroutine 2;
}
Is there way in perl to do this .

Thanks,
gvk

---------- Post updated at 10:31 AM ---------- Previous update was at 09:15 AM ----------

I want the loop to looped around 7000 times and I need to wait to finish all the process before I proceed to next step