Select Code to Download

my %mythreads;
my $work_package = int($elements / $number_threads + 0.5);
...
foreach (sort(keys(%mythreads))) {
    $mythreads{$_}->join();
}

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