Pass argument by reference TCL procedure

Question

How to pass an argument by reference in the TCL procedure?

Look the following block of code:

proc test{&a} {
  set a 7
}

set b 5
test b
puts $b