tie %curRecord, 'Tcl::Var', $tcl, "curRecord";