如何在Perl中存储调用之间的每个线程状态?

现在根据我在Perl下的理解,除非显式共享,否则所有数据都是私有的。

#!/usr/bin/perl -w

use strict;
use threads;

{ # closure to create local static variable
    my $per_thread_state = 0;

    sub foo {
        my $inc = shift;
        $per_thread_state += $inc;

        return $per_thread_state;
    }
}

my $inc = 0;

threads->create(
    sub { 
        my $inc = shift;
        my $i = $inc; 
        while (--$i) { 
            threads->yield(); 
            print threads->tid().":".foo($inc)."\n";
        }
    }, $inc
) while (++$inc < $ARGV[0]);

$_->join() foreach threads->list();

当我运行它时,它看起来像我期望的那样工作,但我只是想确定一下,因为我找不到任何明确讨论这样做的文档。

有人能给我指一些看起来很正式的东西吗?

另一件看起来很奇怪的事情是,线程似乎总是按照创建顺序运行,并且由于某种原因不会交错。例如,如果我运行:

./tsd.pl 100

一切打印得井井有条。如果有必要的话,我会使用Ubuntu 9.04。