tclsh
foreach test {
152.1.136.1
152.1.17.1
152.1.18.1
150.1.1.1
152.1.125.1
150.1.2.2
152.1.2.2
152.1.125.2
152.1.136.3
150.1.3.3
152.1.34.3
150.1.4.4
152.1.48.4
152.1.34.4
150.1.5.5
152.1.5.5
152.1.125.5
152.1.136.6
150.1.6.6
152.1.6.6
152.1.17.7
150.1.7.7
152.1.18.8
150.1.8.8
152.1.48.8
} {ping $test rep 3}