use strict;
use warnings;
use Data::Dump qw/pp dd/;

use feature qw(
        declared_refs
        refaliasing
        say
   );



no warnings 'experimental::refaliasing';
my $a = [666];
my @a;
\@a = $a;

say $a[0];


no warnings 'experimental::declared_refs';
my \@arr = [42];

##</code><code>##

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/auto_ref.pl 
666

Compilation finished at Sat Oct 16 14:45:33