in reply to Re: Help with multidimensional arrays and IO::Socketin thread Help with multidimensional arrays and IO::Socket
makes $call = 1 if the port is down. Then you have "close 1;" later. This might be the problem.