Mega Code Archive

 

Categories / Perl / Array

 

A three-dimensional array

@array = (     [         ["apple", "orange"],         ["ham", "chicken"],     ],     [         ["tomatoes", "sprouts", "potatoes"],         ["asparagus", "corn", "peas"],     ], ); print $array[1][1][1];