23:10 >perl -Mstrict -wE "my @c = ('a' .. 'e'); my $q = \@c; my $r = \(@c); say $q, ' --> ', @$q, qq[\n], $r, ' --> ', $$r;"
ARRAY(0x18a5654) --> abcde
SCALAR(0x4bc344) --> e

##</code><code>##

 1:46 >perl -Mstrict -wE "my $q = \my @c;  @c = ('f' .. 'h'); say $q, ' --> ', @$q;"
ARRAY(0x177554c) --> fgh

 1:46 >perl -Mstrict -wE "my $q = \my(@c); @c = ('f' .. 'h'); say $q, ' --> ', $$q;"
Use of uninitialized value in say at -e line 1.
SCALAR(0x1d20f6c) -->

 1:46 >

##</code><code>##

    (a) \my %hash  --> (b)  \my(%hash)
but (b) \my(%hash) --> (c) \(my(%hash))

##</code><code>##

 1:11 >perl -wE "warn undef;"
Use of uninitialized value in warn at -e line 1.
Warning: something's wrong at -e line 1.

 1:12 >perl -wE "warn \undef;"
SCALAR(0x1d20f6c) at -e line 1.

 1:12 >