my @rhSet = IO::Select->select($readSet, undef, undef, 0);
foreach my $rh (@{$rhSet[0]}) {