LOOP:
      for ( my $I = do { ... }; $i < 20; ++$i ) { ... }