for (grep {$_->is_early_tired() && $_->requires_coffee()} @cb_monks) {
  do {
  $_->consume(Hot::Coffee->new($_->get_coffee_prefs()));
  while ($_->more_coffee_wont_hurt()); 
}