#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;

my @array = (['element-1','element-2'],['element-3']);
my ($row,$column);

print "\n" . Dumper(\@array) . "\n";

print $array[0][0] . "\n";
print $array[0][1] . "\n";
print $array[1][0] . "\n" . "\n";

=comment
for($row = 0; $row < scalar @array; $row++) {
    for($column = 0; $column < 2; $column++) {
        print $array[$row][$column] . "\n";
    }
    print "\n";
}
=cut

foreach $row (@array) {
    foreach $column (@$row) {
	print "This is the \$column: ".$column."\n";
    }
}

__END__

$VAR1 = [
          [
            'element-1',
            'element-2'
          ],
          [
            'element-3'
          ]
        ];

element-1
element-2
element-3

This is the $column: element-1
This is the $column: element-2
This is the $column: element-3