note
DrWhy
I've decided to change my code to instead use a while loop/shift solution similar to what you suggested. It's approximately as simple as my original and doesn't have this issue of possibly depending on an undocumented implementation detail of my version of Perl.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-144739">
<p><em>--DrWhy</em><p>
<em>"If God had meant for us to think for ourselves he would have given us brains. Oh, wait..."</em>
</div></div>
1023497
1023513