# in vmd
puts [lindex $resname_list 0] ; # pirnt one item in a list
puts [lindex $resname_list 1]
for {set x 0} {$x<2} {incr x} { puts [lindex $resname_list $x]
}