use strict;
use warnings;
# use this array to simulate 10 tasks
my @array = qw(zero one two three four five six seven eight nine ten);
for (1..5) {
  my $pid = fork();
  next if $pid;
  test(2*$_-1);
  test(2*$_);
  exit(0);
}
print "Done\n\n";

sub test {
  my $work_on_index = shift;
  # do the work here
  print "text=$array[$work_on_index]\n";
  sleep 1;
}
[download]