...
my @flags : shared = (1) x 10;

my @threads = threads->new( \&worker, \$_ ) for @flags;

sleep 30;
print 'Telling kids its time to go';
@flags = (0) x 10;
...

##</code><code>##

laptop:~> perl -w -Mstrict -l
my @foo = (1) x 10;
my $ref = \$foo[3];
@foo = (0) x 10;
print "ref is now: " . $$ref;
ref is now: 1