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