@array = (1..10);
for(my $i=0; $i<@array; $i++) {
  if($array[$i]%2) {
    splice(@array,$i,1,());
    $i-- #array is one shorter, now;
  }
}

print "@array\n";
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.