use strict;
use warnings;

use MCE;

sub task {
    my ( $mce, $slurp_ref, $chunk_id ) = @_;

    # open file handle to scalar ref
    open my $input_fh, "<", $slurp_ref;

    while (<$input_fh>) {
        if (/^sample\s+(\S+)/) {
            ;
        }
        elsif (/^good\s+(\S+)/) {
            ;
        }
    }

    close $input_fh;
}

MCE->new(
    chunk_size => '1m', max_workers => 4, use_slurpio => 1,
    user_func  => \&task
);

MCE->process({ input_data => "test.txt" });
MCE->shutdown;