unless ($hope) {
   $suffer++ while ($alive);
}