use feature qw( refaliasing );

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