tclsh
foreach test {
172.22.81.1
172.22.0.1
172.22.124.1
172.22.82.1
172.22.5.2
172.22.124.2
172.22.26.2
172.22.83.1
172.22.253.3
172.22.3.3
172.22.34.3
172.22.36.3
172.22.84.1
172.22.253.4
172.22.0.4
172.22.34.4
172.22.124.4
172.22.45.4
172.22.85.1
172.22.2.5
172.22.45.5
172.22.86.1
172.22.4.6
172.22.26.6
172.22.36.6
139.100.1.1
172.22.4.9
} {ping $test rep 3};tclquit