print "Closed $sock[$count2]\n";
    $sock[$count2] = undef;