sub do_stuff1 {
    local $_ = shift;
    chomp;
    say;
}

##</code><code>##

sub do_stuff1 {
    ${ local *_ } = shift;
    chomp;
    say;
}

##</code><code>##

for (..., $tied, ...) {
   ...
   do_stuff1(...);
   ...
}

##</code><code>##

for (..., substr($s, ...), ...) {
   ...
   do_stuff1(...);
   ...
}