#!/usr/local/bin/tclsh8.6 set t [list {1 3} {1 3}] puts $t proc req_path(src dest) { puts "require_path -from $src -to $dest" } proc check_ltcu_srcm_connection {ltcu_inst srcm name} { set b {"${ltcu_inst}.dft_${name}_scan_mode_o" "${srcm}.scan_mode"} puts $b set all_paths [list {"${ltcu_inst}.dft_${name}_scan_mode_o" "${srcm}.scan_mode"} [list dft_${name}_scan_delay_scan_mode_o ${srcm}.scan_mode_atspeed_i] [list dft_${name}_scan_hatpg_src_en_o ${srcm}.scan_rst_byenb] ] puts $all_paths foreach p $all_paths { # req_path [lindex p 0] [lindex p 1] } } check_ltcu_srcm_connection 'path/to/ltcu/ltcu' 'p/to/src' 'bpss'