while ( my @ready = $select->can_read()) { 
  ...
};