open(LIFE,"life");
@mind=<LIFE>;
close LIFE; 
unlink "life";
while($day=pop @mind)
{undef $day}