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

##</code><code>##

while ($test <= 100) {
    $test += 1;
    print $test;
}