tclsh
foreach address {
172.16.17.1
172.16.16.1
172.16.13.1
172.16.124.1
172.16.124.2
172.16.101.1
FEC0::16:1
FEC0::13:1
FEC0::14:1
FEC0::12:1
172.16.124.5
172.16.25.33
172.16.25.2
172.16.102.1
FEC0::12:2
FEC0::25:2
172.16.13.3
172.16.34.3
172.16.36.3
172.16.103.1
FEC0::13:3
172.16.34.4
172.16.124.4
172.16.104.1
FEC0::14:4
172.16.25.5
172.16.105.1
FEC0::25:5
FEC0::105:1
2001::105:1
172.16.16.6
172.16.106.1
172.16.36.6
FEC0::16:6
172.16.17.7
172.16.107.1
172.16.25.34
172.16.108.1
172.16.34.10
172.16.120.1
} {
ping $address
}