use strict;
use warnings;
use MCE::Loop;
use Data::Dumper;

my %hash;
our %hash2;
our $counter1=0;
our $counter2=0;

open (my $fh, "<", "DATA_F") or die($!);
print "printing counter1\n";
while(<$fh>){
	my ($k, $v)=split;
	$hash{$k}=$v;
	print $counter1++,$/;
}
print "done printing counter1\n";

print "printing counter2\n";
MCE::Loop::init {
   use_slurpio => 1, 
   max_workers => 16, init_relay=>0
};

mce_loop_f{
	my ($mce, $file, $id)=@_;
	open (my $ifh, "<", $file) or die("$!");
	while(<$ifh>){
		my ($k, $v)=split;
		$hash2{$k}=$v;
		print $counter2++,$/;
		}

	} $fh;
print "done printing counter2\n";	

print $counter1, "=counter1 final\n";
print $counter2,"=counter2 final\n";

print Dumper(\%hash);
print Dumper(\%hash2);