foreach (@blah) {
   do stuff with $_ from @blah
   {
      my $_;
      while (<HANDLE>) {
         do stuff with $_ read from the handle
      }
   }
   do stuff with $_ from @blah
}