Select Code to Download

my %completed      :shared = ();        # Record completed datast
my %results_global :shared = ();        # Global; holds intersections
my @jobs           :shared = ();        # Holds thread IDs
...
        $results{$outer}->{$inner} = &share([]);    # Hold AREFs
    }
} #OUTER

# Partition data across 3 threads (4 AREFs/ea) and spawn thread jobs.
# Each subset is an AREF of indices in @data_entire.
...
    return;
}
=====================================================================

    (85,750,000 sec)/(80 cores)*(1hr/3600sec)*(1day/24hrs) 
        = 1,071,875 sec/core
        =       298 hrs/core
        =        12 days/core       <--- Walltime for this op.