tclsh
foreach address {
10.1.2.1
10.1.200.2
10.1.100.2
10.1.100.3
192.168.100.1
192.168.100.5
10.1.3.1
} {
ping $address }