$names{$refnum} = $str;