@readable_handles=$selectobj->can_read(0.1); foreach my $socket (@readable_handles) { $sockethash{$socket}->{readable}=1; } # other places in the program can identify which # connection is being discussed by using the connection # handle as a hash key