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

##</code><code>##

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

##</code><code>##

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