for {set i 0} {$i < [llength $signals]} {incr i} {
         set signal [lindex $signals $i]
#check the signal

if {$signal == something} {
lreplace $signals $i $i
} 
}