foreach $send (@data) {
    print $rem_socket $send;
}