use 5.22.0;
use feature qw/say refaliasing/;
no warnings "experimental::refaliasing";

\my @a = my $a = [666];
say "noref: $a[0], ref: $a->[0], list: @a";    
$a = [42];
say "noref: $a[0], ref: $a->[0], list: @a";

##</code><code>##

noref: 666, ref: 666, list: 666
noref: 666, ref: 42, list: 666

##</code><code>##

use 5.22.0;
use feature qw/say refaliasing/;
no warnings "experimental::refaliasing";

my @a = (666,42);

test (\@a,\@a);

sub test {
    (\my @sub, my $ref) = @_;
    say "noref: $sub[0], ref: $ref->[0], list: @sub";
}

##</code><code>##

noref: 666, ref: 666, list: 666 42