my $jobNo :shared = 0;
...
sub job {
    sleep 1 until do{ lock $jobNo; $jobNo; };
    ... use $jobNo.
    ...
}

...
my $thread = threads::create( \&job );

...
{ lock $jobNo; $jobNo = getJobNo(); }