TCL output to screen command like echo or print to screen?

itdaddy

tclsh

foreach i {

1.1.1.1 Router name here to screen

2.2.2.2 switch name here to screen?

} { ping $i rep 1 }



how can I place comment name next to the device IP in the ping command?