$_ = "abcdefg";

while (m/./g) {
   my @some_array = (1 ..2);
   while (local $_ = shift @some_array) { # manually localized - breaks
        # do something;
   }
   print $&;
}