continue

Print a line for each of the integers from 0 to 10 except 5:

for {set x 0} {$x<10} {incr x} {
   if {$x == 5} {
      continue
   }
   puts "x is $x"
}