set x { {} {} {} }
set refID 1
proc addValue {value} {
    global x refID
    set value [expr $value*2]
    lset x $refID end+1 $value
}
addValue 7
addValue 8
# => {} {14 16} {}