>perl -wle"my @x = @$ref; print $ref"
Use of uninitialized value in array dereference at -e line 1.
Use of uninitialized value in print at -e line 1.

##</code><code>##

>perl -wle"@$ref = my @x; print $ref"
ARRAY(0x225228)

##</code><code>##

>perl -wle"sub {}->(@$ref); print $ref"
ARRAY(0x225230)

>perl -wle"for (@$ref) {} print $ref"
ARRAY(0x225228)