Help for this page

Select Code to Download

Select or download this

sub do_work {
    my @working_block = @input_data[$start .. $stop];  ## COPY 1
...
    @ReturnData[$start / $files .. $stop / $files] = @partial_output_d
+ata;    ## COPY 5
    return;
}

Select or download this

#! perl -slw
use strict;
...
C:\test>802855.pl
Took 0.59 seconds to find the coffOfVar of 56320 datasets