use strict;
use warnings;
use diagnostics -verbose;
use Parallel::ForkManager;

my @array = ("") x 56;

my $fork_manager = new Parallel::ForkManager(16);
my $check = 0;

for my $val (@array) {
	
	$fork_manager->start and next;
	$check++;
	
	$fork_manager->finish; # Terminates the child process
	
	print "Hello?\n";
	
#	$fork_manager->start and next;
#	$check++;
#	$fork_manager->finish;
}
print "End: " . $check . "\n";