... use MCE::Hobo; use MCE::Shared; # For minimum memory consumption, start the shared-manager process before # loading data locally. MCE::Shared->start(); # <-- important on Windows my $minmatch = 4; my $startTime = [Time::HiRes::gettimeofday ()]; my %strings; while (<>) { chomp(my $label = $_); chomp(my $string = <>); # Compute all substrings @{$strings{$label}} = map [substr($string, $_), $label, $_], 0..(length($string) - $minmatch); } print "Loaded. Generating combos...\n"; my @keys = sort keys %strings; my $sequence = MCE::Shared->sequence( { chunk_size => 1, bounds_only => 1 }, 0, $#keys - 1 ); ...