my $sem :shared;
my $thread1 = threads->create( \&thread, \$sem );