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