What you are doing makes no sense.

And the way you are doing it makes no sense. This:

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

Is (unreliably) equivalent to doing this:

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

Except that:

1. it is is vastly more inefficient;

   Because you are building and running and then throwing away a whole new thread in order to execute that single print statement.

   Which is a complete nonsense as it has no advantages and masses of disadvantages.

2. it is unreliable;

   Because there is no guarantee one way or the other that by the time the thread has been built and the print statement is executed, whether the increment of the variable will have been done or not.

That is, the while loop cannot continue until the print statement (in the thread) has run; so nothing is being "done in parallel".

It doesn't even make sense as a beginners first exploratory step in using threads because it is like trying to test whether a bone china cup can safely contain concentrated sulphuric acid; because regardless of the outcome of the test, nothing useful is being done by doing so.

If you think you have a real application for threading and are stuck on how to do it; describe it and we'll try to help you.

If not, stop playing; because your misunderstanding is such that all you will do is acquire knowledge of how not to use threads.