Mega Code Archive

 

Categories / Perl / Array

 

Using array reference to index the two dimensional array

@array = (     ["apple", "orange"],     ["asparagus", "corn", "peas"],     ["ham", "chicken"], ); $array1ref = $array[1]; print ${$array1ref}[1]; print ${array[1]}->[1]; print $array[1]->[1]; print $array[1][1];