my $x = 5;
sub ct {
   threads->create(\&worker);
}