use strict;
use threads;
use threads::shared;
my $i :shared;
$i = 1;

# Time and code passes.
for my $id (@article_id) {
    lock($i);
    print "$i\n";
    $i++;
}
# More code.