tclsh
foreach test {
157.1.168.1 
157.1.15.1 
170.1.1.1 
157.1.245.2 
157.1.24.2 
157.1.245.254 
170.1.2.2 
157.1.24.99
157.1.168.3 
170.1.3.3 
157.1.38.3
157.1.245.4 
157.1.24.4 
170.1.4.4
157.1.245.5 
157.1.15.5 
157.1.58.5 
170.1.5.5
157.1.168.6 
170.1.6.6 
157.1.67.6
157.1.7.7 
170.1.7.7 
157.1.67.7
170.1.8.8 
157.1.58.8 
157.1.38.8
} {ping $test rep 3}