{ # long block begin
   .
   .
   {
      my $name = 'foo';
      .
      .
   }
   .
   .
   {
      my $name = 'bar';
      .
      .
   }
   .
   .
}

##</code><code>##

  my @lines;
  {
    my $fh = new IO::File "< $infile";
    @lines = <$fh>;
  }
  for ( @lines ) { ...

##</code><code>##

  for ( do { my $fh = new IO::File "< $infile"; <$fh> } ) { ...