Forking a processes in perl

How could I launch the below indicated line or any other block of code on all array parameters at once in a nonlinear method?  Basically cloning the block 5 times.

I've heard of heard of fork() and the win32::process module, but I can't clearly understand how to implement what I need to do with the samples given: (win32 perl by the way)

@array = qw{ server1 server2 server3 server4 server5 };

for (@array) {
   
    # How can I clone the below line 5 times instead of running sequentially?
      push(@out,( `ping -n 120 $_` ));

}

# output results
print @out;