Anonymous

  foreach x [array names bind_type] {
   	puts "inforeach $x"
    if {[string equal -nocase "evnt" $bind_type($x)] && [string equal -nocase "peform" $bind_trig($x)]} {
       puts "send bind $bind_cmd($x)"
       $bind_cmd($x) [clock seconds]
    }
  }