use strict;
use warnings;

my @flist;
my @array = 0 .. 3;

for my $elt (@array) {
    push @flist, sub {return $elt;};
}

print $_->(), "\n" for @flist;
@array[0 .. 3] = 10 .. 13;
print $_->(), "\n" for @flist;