use threads;
use threads::shared qw(share);

my @foo :shared = (1,2,3); # same as: share( @foo ); @foo = (1,2,3)
my @bar = (1,2,3); share( @bar );
print "foo = @foo, tied foo = ".(tied @foo)."\n";
print "bar = @bar, tied bar = ".(tied @bar)."\n";
__END__
foo = 1 2 3, tied foo = threads::shared::tie=SCALAR(0x82b714)
bar = , tied bar = threads::shared::tie=SCALAR(0x80a270)