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