while ($x != $limit) {        
        foreach $x (@icpList) {
            warn "start loop";
            health($x);
            warn "health executed";
            secureTelnetCommand($x);
            warn "secureTelnetCommand executed";
            pstswlog($x);
            warn "pstswlog executed";
        }