Select Code to Download

...
my @flags : shared = (1) x 10;
...
print 'Telling kids its time to go';
@flags = (0) x 10;
...

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