use strict;
use warnings;

use MCE::Hobo;
use MCE::Shared;
use PerlIO::gzip;

my $IN  = MCE::Shared->handle( '<:gzip', 'wat.paths.gz' );
my $OUT = MCE::Shared->handle( '>', \*STDOUT );

sub task {
   while (my $file = <$IN>) {
      print $OUT length($file).":$file" if length($file) > 142;
   }
}

MCE::Hobo->create('task') for 1 .. 12;

# do other stuff if desired

$_->join for MCE::Hobo->list;

close $IN;