#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use MCE::Loop;
use Data::Dumper;

my $data_file = 'DATA_F.dat';
my (%hash, %hash2);

{
    open (my $fh, '<', $data_file);

    while (<$fh>) {
        my ($k, $v) = split;
        $hash{$k} = $v;
    }
}

MCE::Loop::init {
   use_slurpio => 1,
   max_workers => 16,
   init_relay  => 0,
};

%hash2 = mce_loop_f {
    MCE->gather(split ' ', $$_);
} $data_file;


print Dumper \%hash;
print Dumper \%hash2;