our @arr; local *arr = sub { \@_ }->( my $one, my $two, my $three );

##</code><code>##

use Data::Alias qw( alias );

alias my @arr = ( my $one, my $two, my $three );

##</code><code>##

use feature qw( refaliasing );

my @arr;
\$arr[@arr] = \my $one;
\$arr[@arr] = \my $two;
\$arr[@arr] = \my $three;