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