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