foreach(@teacher)
{
   use strict;
   pop @quiz;
   $homework++;
   $homework++;
   $homework++;
   $boredom++;
}

$still_homework_to_do = $homework;

while(@home)
{
   $tired++;
   while($still_homework_to_do)
   {
      $homework--;
      $tired++;
   }
   if($tired >= 10)
      {$sleep $until_morning;}
}