while ($graduated = "no")
{
$day = $day + 1;
    if ($mylife =~ /drinking/)
    {
     $test[$day] = "fail";
    }
    if ($mylife =~ /studying/)
    {
     $test[$day] = "pass";
    }
$mylife = $mylife . "drinking";
$mylife =~ s/sleep/no sleep/;
    unless ($test[$day] = "pass")
    {
    $graduated = "no";
    }
}