shutdown ($sock[$count2], 2);
    print "Closed $sock[$count2]\n";

##</code><code>##

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