while ( my $item = $my_q -> dequeue() )

##</code><code>##

for ( 1..$num_workers ) {
  my $thr = threads -> create ( \&worker_thread );
  push ( @worker_threads, $thr );
}
foreach my $thr ( @worker_threads ) {
  $thr -> join();
}