print( "\$wave_tcl_file  is $wave_tcl_file\n");
${$$all_shary_for_subs{'%sim_info'}{$sim_ref}}{'tcl_file'} = $wave_tcl_file