$ perl -E 'my @x = qw{1 2 3}; say for @x; my $y = \@x; say $y; say for @$y' 1 2 3 ARRAY(0x60008a828) 1 2 3