Select Code to Download

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

use Data::Dumper;
my @array = 1..10;
...
print Dumper \@array;
my $r2 = \@array;
print \@array,"\n",$r2;