for(my $i=0; $i<MAX_THREADS; $i++) {
    threads->create( \&thread, $q )->join;
}