for (my $i = 0; $i < @level1; $i++) { for (my $j = 0; $j < @{$level1[$i]}; $j++) { print STDOUT "\$i: " . $i . " \$j: " . $j . " value: " . $level1[$i][$j] . "\n"; } }