Mega Code Archive

 

Categories / Perl / Array

 

Using array reference to create two-dimensional array

@array1 = qw(apples oranges); @array2 = qw(asparagus corn peas); @array3 = qw(ham chicken); $array[0] = \@array1; $array[1] = \@array2; $array[2] = \@array3; print $array[1][1];