proc doOne {} {
puts "-----------> disabling..."
ios_config "interface ten3/1.11" "shutdown"
ios_config "interface ten3/1.21" "shutdown"
after 5000
puts ""
puts "-----------> enabling..."
ios_config "interface ten3/1.11" "no shutdown"
ios_config "interface ten3/1.21" "no shutdown"
after 9000
}

proc doSome {} {
for {set x 1} {$x<100} {incr x} {
  puts "\r\n"
  puts "------------------> $x. round <------------------"
  doOne
  }
}

doSome