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

##</code><code>##

use Data::Dumper;
my @array = 1..10;
my $aref  = sub {\@_}->(@array);
$_++ foreach @$aref;
print Dumper \@array;
my $r2 = \@array;
print \@array,"\n",$r2;