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