print $socket $chat[$i], $EOL if ( $1 ne $ID && $2 ne $kill);