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

##</code><code>##

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