use threads; use threads::shared; my %shash; my @choices; my $x; share $shash{'go'}; share @choices; share $x; $shash{'go'} = 0; @choices = ( ); $x = 1;