Thanks for the solution Jim. I used below to split OBX_5 field value and then used your tcl proc in the iterate to get the first element from the list.
package require textutil
set obxList [textutil::splitx [lindex $xlateInVals 0] “]
set outVal
foreach listVal $obxList {
lappend outVal ${listVal}
}
set outVal [lreplace ${outVal} 0 0]
set xlateOutVals