I didn't really get your question at first, but after reading the replies, esp.
dragonchild, I understood what was going on. If you use
while (my $elm = shift @list) { some_funct $elm } (or
while ($_ = shift @list) {)that will work. I doubt, have no clue, that this is coding practice, but it works. All the other replies are good, this is just using
while.
__________________________________________________
<moviequote name="The Whole Nine Yards">
Jimmy T: Oz, we're friends, friends do not engage in sexual congress with each others wives.
</moviequote>
mexnix.perlmonk.org