I think it should be fine, and tested with the following code: (the way you pass parameter is wrong? pure guess, as I don't have that part of your code)

#!/usr/bin/perl
use IO::Socket::INET;
use IO::Select;
use threads;
use Data::Dumper;

threads->create(\&server);
my $c1 = new IO::Socket::INET(Proto => "tcp", PeerAddr => "127.1", Pee
+rPort => 3000);
my $c2 = new IO::Socket::INET(Proto => "tcp", PeerAddr => "127.1", Pee
+rPort => 3000);

my $select = new IO::Select($c1, $c2);
my @handles = $select->handles();
print Dumper \@handles;
$select->remove($c1);
my @handles2 = $select->handles();
print Dumper \@handles2;

sub server {
    my $s = new IO::Socket::INET(Proto => "tcp", LocalAddr => "127.1",
+ LocalPort => 3000, Listen => 1);
    while (1) {
        $s->accept();
    }
}
[download]

And I got:

$VAR1 = [
          bless( \*Symbol::GEN0, 'IO::Socket::INET' ),
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];
$VAR1 = [
          bless( \*Symbol::GEN1, 'IO::Socket::INET' )
        ];
[download]