#!/usr/bin/perl 
 
@array = qw(test1 test2 test3 test4 test5); 
 
$x=0; 
$num = 5; 
 
for ( 1 .. $num ) { 
    my $pid = fork(); 
    if ($pid) { 
        push( @childs, $pid ); 
    } 
    elsif ( $pid == 0 ) { 
        print "parent\n"; 
        sleep 5; 
        exit(0); 
    } 
    else { 
        die "couldnt fork: $!\n"; 
    } 
} 
foreach (@childs) { 
        foreach $k (@array) { 
                print "child $x k: $k\n"; 
                next; 
        } 
                $x++; 
}