% set NAME "John Doe"
John Doe
% proc test {} {
    set latribs "name surname"
    global [string toupper $latribs]
    set NAME "Paul Allen"
  }
% test
Paul Allen
% puts $NAME
John Doe