tclsh
foreach router {
17.57.100.1
17.57.100.2
208.28.1.65
208.28.1.66
208.28.1.129
208.28.1.130
180.40.7.129
180.40.7.130
180.40.7.65
180.40.7.66
208.28.1.1
208.28.1.2
180.40.7.2
180.40.7.3
17.80.1.1
17.80.1.2
10.1.1.1
20.1.1.1
30.1.1.1
40.1.1.1
50.1.1.1
60.1.1.1
17.57.101.1
17.57.102.1
17.57.103.1
} {ping $router};tclquit

180.40.7.33
180.40.7.34