use threads::shared;
my $var :shared;