use threads;
use threads::shared;
my $x : shared;

for (0..9) {
    threads->new(sub { 
		    while (1) {
			$x = $_[0];
			die unless $x =~ /^\d$/;
		    }
		},
		$_
    );
}
sleep;