use threads; use threads::shared; my $test :shared; $test = 0; testing_thread(); sub testing_thread { while ($test <= 100) { my $thr1 = threads->create(\&progress_count, $test); $test += 1; $thr1->join(); } } sub progress_count { print $test, " \n"; }