my $new;
my $counter = 0;
my %clients;

      if($obj == $sock) {
         # Create a new socket
         $new = $sock->accept;
         $sel->add($new);
$counter++
$clients{$counter}{'obj'} = $obj;
$clients{$counter}{'ip'} = $obj->remoteip;
#or whatever identifiers you can get