Select Code to Download

...
my %motifs : shared;
...
            print join "\t", $chromosome, $pos, $motif;
            $pos += $len;
        }

my @waiting = @chromosomes;
my %threads;
...
    }
    sleep 1; ## Prevent this thread consuming all spare cpu
}