Shouldn't the # unlink "life" ; arrive after the destruction of all days:
while($day=pop @mind)
{undef $day}

Or do you mean that all that "<LIFE>" inside your @mind shall survive to you?