bit of Poetry from perlMonks

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