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

my @a=(1,2,3);
my @b=(3,2,1);

say \@a;

\@a=\@b;

say \@a;