B a new dict in my parent, A

proc A {} {
  B salad greens
  dict lappend salad greens lettuce chicory kale arugula watercress spinach
  puts [dict get $salad greens]
}

proc B {var key} {
  uplevel 1 [list set $var [dict create $key {}]]
}