while ( threads -> list )
{
  foreach my $thread ( threads -> list ( threads::joinable ) )
  {
    $thread -> join();
  }
  print $totalCount,"\n";
  sleep 5;
}