while (@array)
{
  $item = shift @array;
  ...
  push @array, @newstuff;
}

##</code><code>##

for (my $i=0; $i< $#array; $i++)
{
  ...
  push @array, $thing if desired();
}