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