tclsh 
    foreach address {
    10.1.1.1
    10.1.1.2
    10.1.1.4
    128.213.105.1
    128.213.105.2
    128.213.113.1
    128.213.40.2
    128.213.40.4
    128.213.25.2
    128.213.25.3
    128.213.25.4
    128.213.130.2
    128.213.130.1
    128.213.113.3
    128.213.113.1
    38.1.1.2
    10.1.1.3} {
    ping $address
    }
tclquit