while ( ($pos = index($sequence, $motif, $pos)) >= 0 ) {
    lock $semaphore;
    print $fh join("\t", $genome_build, @row, $chr, $pos+1), "\n";
    $pos += $len;
     }