in reply to retry code snippet

I received many good answers to this here.

In Section Seekers of Perl Wisdom