Help for this page

Select Code to Download


  1. or download this
    my $r1 = sub { \@_ }->(@array);
my $r2 = \@array;
  2. or download this
    my @array = (1..10);
my $r1 = sub { \@_ }->(@array);
...
my $r2 = \@array;
pop @$r2;
print "changed @array\n";
  3. or download this
    unchanged 1 2 3 4 5 6 7 8 9 10
changed 1 2 3 4 5 6 7 8 9