#! perl -slw
use strict;
use threads;
use threads::shared::Scalar;

my $shared = threads::shared::Scalar->new;

for ( 1.. 10 ) {
    async {
        sleep 1 + rand 3;
        $shared->value .= ":$_";
    };
}
$_->join for threads->list;
print $shared->value;

__END__
C:\test>579015
:1:2:3:5:6:9:4:7:8:10

C:\test>579015
:1:2:6:9:3:5:7:10:4:8

C:\test>579015
:4:5:6:7:8:9:3:1:2:10