my @threads = map threads->create( \&thread, $Q, shared_clone( $dbh ) ), 1 .. $T;
#............................................^1, ^^^^^^^^^ 2 ^^^^^^^^