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