#!/usr/bin/env perl

use strict;
use warnings;
use MCE::Loop;
use Data::Dump;
use autodie;
use feature qw(say);

say $0;

my $file = q(data.csv);
my $cores =  MCE::Util::get_ncpu();

MCE::Loop::init( { max_workers => $cores, 
                   use_slurpio => 1,  
                 });

my @result = mce_loop_f {
    # say $_[2];
    my $slurp_ref = $_[1];
    my @rows;
    open my $fh, '<', $slurp_ref;
    while (<$fh>) { 
         chomp;
         my @row = (split /,/, $_);
         push @rows, \@row ;
    }
    close $fh;
    MCE->gather(@rows);
} $file;

MCE::Loop->finish;

dd \@result;

__END__
[download]