print $socket $data[$_];