foreach my $sock (@sockclients)
{
    print $sock $data;
}