tclsh
foreach test {
2000:4:4::
2005:0:104::4
2005:0:104::1
2005:0:102::1
2005:0:102::2
2005:0:1203::2
2005:0:237::2
2005:0:702::2
2005:0:1203::3
2000:3:3::
2005:0:237::3
2005:0:237::7
2005:0:702::7
2006:1:1::
2006:2:2::
2006:3:3::
2006:4:4::
2006:7:7::

} {ping $test rep 2};tclquit