I useful method to script the pinging of multiple IP addresses;

tclsh foreach address {10.1.1.1 10.2.2.2} {ping $address repeat 2} tclquit