for my $row (1 .. $row_size) {
    for my $column (1 .. $column_size) {
        ...
    }
}