use strict; use warnings; my @array1 = ( ["first #1", "first #2"], ["second #1", "second #2"], ["third #1", "third #2"], ); my $outer_idx = 0; my $inner_idx = 0; printf "One: %s; Two: %s\n", $array1[$outer_idx]->[0], $array1[$outer_idx]->[1]; $outer_idx++; printf "One: %s; Two: %s\n", $array1[$outer_idx]->[0], $array1[$outer_idx]->[1]; #### One: first #1; Two: first #2 One: second #1; Two: second #2