Select Code to Download

#!/your/perl/here
use strict;
...
print Dumper %hash;

print "";

c:\perl\perl>hash_array.pl
"my" variable @array masks earlier declaration in same 
...
          'd',
          'e'
        ];

c:\perl\perl>perl -d hash_array.pl

...
      4  4
   'two' => ARRAY(0x1c1b9ac)
      -> REUSED_ADDRESS