Select Code to Download

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

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

 1:46 >

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

 1:11 >perl -wE "warn undef;"
Use of uninitialized value in warn at -e line 1.
...
SCALAR(0x1d20f6c) at -e line 1.

 1:12 >