Select Code to Download

my $r1 = sub { \@_ }->(@array);
my $r2 = \@array;

my @array = (1..10);
my $r1 = sub { \@_ }->(@array);
...
my $r2 = \@array;
pop @$r2;
print "changed @array\n";

unchanged 1 2 3 4 5 6 7 8 9 10
changed 1 2 3 4 5 6 7 8 9