tclsh
foreach testv6 {
2001:ABC::1
2001:124::1
2001:AB40::1
2001:AB41::1
2001:4313::1
2001:26::2
2001:124::2
2001:46::4
2001:124::4
2001:45::5EFE:AC10:2D04
2001:4313::4
2001:45::5EFE:AC10:2D05
2001:26::6
2001:46::6
2001:AAA4::1
2001:AAA5::1
} {ping $testv6}