Select Code to Download

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

use Data::Alias qw( alias );

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

use feature qw( refaliasing );

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