while(!$retired || !$millionaire)
{
    typicalDay();
}

sub typicalDay
{
    open(WORK,"<TOO.MUCH");
    
    while(<WORK>)
    {
        tr/$coworker_mistake/$correct_answer/;
        
    }
    
    return;
    
    sleep($till_morning);
    
}
[download]