for (1..5) { my $pid = fork(); for($i=0; $i<@servers; $i++) { if ($pid) { # parent waitpid($pid,0); } elsif ($pid == 0) { # child &get_data($server[$i]); #exit(0); } } # end fork }