in reply to Re: Help with multidimensional arrays and IO::Socket
in thread Help with multidimensional arrays and IO::Socket

$call = ... or $inactive = 1;

makes $call = 1 if the port is down. Then you have "close 1;" later. This might be the problem.