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