foreach my $var (1, 2, 3, "skip", 4) {
   eval {                     # This block is ignored.
      if ($var eq "skip") {
         next;
      }
   };
   print $var;
}

print("\n");

foreach my $var (1, 2, 3, "skip", 4) {
   {                          # This block exits.
      if ($var eq "skip") {
         next;
      }
   }
   print $var;
}

print("\n");

##</code><code>##

1234
123skip4