tclsh
foreach pingtest {
147.1.156.1 
140.1.1.1 
147.1.11.1 
147.1.14.1 
147.1.236.2 
140.1.2.2 
147.1.236.3 
140.1.3.3 
140.1.4.4 
147.1.44.4 
147.1.156.5
140.1.5.5 
147.1.58.5 
147.1.156.6
147.1.236.6 
140.1.6.6 
147.1.66.6 
140.1.8.8 
147.1.58.8
} {ping $pingtest rep 3}