tclsh
foreach i {
150.1.1.1
192.10.1.1
141.1.123.1
} {ping $i}
foreach i {
150.1.1.1
192.10.1.1
141.1.123.1
} {ping $i}
or
foreach address {1.1.1.1
2.2.2.2
3.3.3.3
4.4.4.4
5.5.5.5
6.6.6.6} { puts [ exec "ping $address" ] }
2.2.2.2
3.3.3.3
4.4.4.4
5.5.5.5
6.6.6.6} { puts [ exec "ping $address" ] }