use v5.14;
use warnings;

{
  package _csv;			# some package name

  our $row;
  our $col;

  sub c {
    my $c = shift // $col // die "col undefined";
    my $r = shift // $row // die "row undefined";
    say "c:$c r:$r";
  }

  say "--- inside same scope";
  for $row (1..3) {
    c("A");
  }
}

package main;

BEGIN { *c = \&_csv::c } # fake import for demo

say "--- one default";
for $_csv::row (1..3) {
  c("B");
}


say "--- two defaults";
for $_csv::col ("C".."D") {
  for $_csv::row (4..5) {
    c();
  }
}


say "--- explicit local ";

{
  local $_csv::row = 10;
  c("E");
  c("F");
}


say "--- defaults were localized inside loop";

c("G");

##</code><code>##

perl ~/perl/cell_dsl.pl 
--- inside same scope
c:A r:1
c:A r:2
c:A r:3
--- one default
c:B r:1
c:B r:2
c:B r:3
--- two defaults
c:C r:4
c:C r:5
c:D r:4
c:D r:5
--- explicit local 
c:E r:10
c:F r:10
--- defaults were localized inside loop
row undefined at /home/lanx/perl/cell_dsl.pl line 12.