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

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