I actually did consider that; your question is valid.

I did that so $life would equal 0 in the end.

Thanks for your reply...this is my first Perl poem. I'm glad you liked it. :-)
Chris