my @a = 1..10;
  for my $i (0 .. 9)
  {
    delete $a[$i] if $a[$i] % 2;
  }