while ($test <= 100) {
    my $thr1 = threads->create(\&progress_count, $test);
    $test += 1;
    $thr1->join();
}