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