tclsh foreach test { 172.22.81.1 131.108.1.1 172.22.174.1 172.22.142.1 172.22.51.1 172.22.82.1 172.22.52.2 172.22.32.2 172.22.142.2 172.22.62.2 172.22.83.1 172.22.33.3 172.22.32.3 172.22.63.3 172.22.84.1 172.22.174.4 172.22.142.4 172.22.85.1 144.251.100.201 172.22.52.5 172.22.51.2 172.22.86.1 172.22.62.6 172.22.63.6 172.22.87.1 172.22.174.7 172.22.52.20 } {ping $test rep 3}