use strict;
use warnings;

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

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

print $row_element;