my @readable = $read->can_read; foreach $fh (@readable) { ... }