for my $fh ($sel->can_read())
{
  if ($fh == $SERVER) { 
      print "client connected\n";
  }
  ...
}

##</code><code>##

 for (keys(%hash)) {
   if ($fh == $_) { ... }
 }