Select Code to Download

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

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

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

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