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";