sub aussen {
     # viele Variablen werden hier verwendet
     my $innen = sub {
          # viele Variablen aus "aussen" werden hier verwendet, aber
          # muessen nicht uebergeben werden
     };

     while(...) {
         $innen->();
     }
}