for my $row (1 .. $row_count) {
    for my $col (1 .. $col_count) {
        # process cell at row $row and column $col
    }
}

##</code><code>##

SUBROUTINE_REDEFINITION_BLOCK: {
    no warnings 'redefine';
    sub subname { ... }
}