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