use Parallel::ForkManager;
my $max_procs = 6;
my @names = qw( 0 2 3 4 5 0 );
my @DataStructure;

my $pm = Parallel::ForkManager->new($max_procs, @ARGV);

$pm->run_on_finish( sub {
  my ($pid, $exit_code, $ident, $exit_signal, $core_dump, $data_structure_reference) = @_;
  
  my @results= @$data_structure_reference;
  
  if (@results){
	push (@DataStructure, @results);
  }
});

foreach my $child ( 0 .. $#names ) {
  my $pid = $pm->start($names[$child]) and next;

	my @results;
	if ($child eq 1){
		@results=getResultsAPI_1();
	}
	elsif ($child eq 2){
		@results=getResultsAPI_2();
	}
	elsif ($child eq 3){
		@results=getResultsAPI_3();
	}
	elsif ($child eq 4){
		@results=getResultsAPI_4();
	}
	elsif ($child eq 5){
		@results=getResultsAPI_5();
	}
	elsif ($child eq 6){
		@results=getResultsAPI_6();
	}

  $pm->finish($child, \@results);
}


$pm->wait_all_children;