Select Code to Download

#!/usr/bin/perl

...

@hand = $sel->handles();
print  Dumper \@hand;

$VAR1 = [
          'STDIN',
...
          'STDOUT',
          'STDERR'
        ];

sub removeSocket {
    my ($self, $socket) = @_;
...
    my @handles2 = $select->handles();
    print STDERR '>>after: ',Dumper \@handles2;
}

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