our $THREADS = 32;

sub worker {
    my $tid = threads->tid;
    my( $Qwork, $Qresults ) = @_;
    while( my $item = $Qwork->dequeue ) {
        my $result;
        my ($M,$m) = @{$item};
        my $dbfile_connect = qq{${dbfile}_${M}_${m}};
        my $sqlite_dbh = sqlite_connect($dbfile_connect,'');
        create_table_dpt(\$sqlite_dbh,\$table_dpt_sqlite,\@{$data_dpt});
        create_tmp_table(\$sqlite_dbh,\$table_a_sqlite,\$table_d_sqlite,\%{$uniq_values});
        insert_a_tmp_table(\$sqlite_dbh,\$table_a_sqlite,\$table_d_sqlite,\@{$data_ref->{$M}->{$m}},\%{$data_g_c},\%{$data_c});

        $sqlite_dbh->disconnect();
        $Qresults->enqueue( \%{$result} );
        print "$M $m finit \n";
    }
    $Qresults->enqueue( undef ); ## Signal this thread is finished
}

my $Qwork = new Thread::Queue;
my $Qresults = new Thread::Queue;

my @pool = map{
    threads->create( \&worker, $Qwork, $Qresults )
} 1 .. $THREADS;

foreach my $M_m (sort { $uniq_values->{M_id_top}{$b} <=> $uniq_values->{M_id_top}{$a} } keys(%{$uniq_values->{M_id_top}}))
{

                my ($M,$m) = split('_',$M_m);
                $Qwork->enqueue([$M,$m]);
}

$Qwork->enqueue( (undef) x $THREADS );
$_->join for @pool;