foreach my $client(keys %clients){
.             my $sock = $client;
.             $sock->syswrite("hello world");
.     }