use strict;
use warnings;

my $max_cols = 3;
my $max_rows = 3;

my $row_element = 0;
my $col_element = 0;

foreach my $col_element (0 .. $max_cols)
{
    foreach my $row_element_a (0 .. $max_rows)
    {
		$row_element = $row_element_a;
        print $row_element;
    }
}

print $row_element;