use Storable qw( nstore_fd );
nstore_fd(\@data, $rem_socket);

##</code><code>##

use Storable qw( fd_retrieve );
my $data = fd_retrieve($rem_socket);