while (...) {
   my $func = sub {
      next;
   };

   $func->();
}