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