Select Code to Download

          
          @array = qw( a b c d ) ;
          
          @array{ @array } = ( [ @array ] ) x @array ;

          
          
             ...this means the
...
              'c' => [ 'a', 'b', 'c', 'd' ],    
              'd' => [ 'a', 'b', 'c', 'd' ],    
          ) ;

          
            DB<1> n
          main::(-e:1):   @array = qw( a b c d ) ;@array{ @array } = (
+ [ @array ] ) x @array ; print $array{'a'}->[1];
...
          7  ARRAY(0x1d7f550)
             -> REUSED_ADDRESS
            DB<2>

          
          C:\>perl -e "@array = qw( a b c d
           ) ;@array{ @array } = ( [ @array ] ) x @array ; $array{'a'}
+->[1] = 'FOOBAR'; print $array{'a'}->[1]; print $array{'b'}->[1];"
          FOOBARFOOBAR