...
my @keep;

foreach my $element (@array) {
  #  Add element here if it doesn't match.
  push @keep, $element if ($element & 1) != 0; # Add for deletion
}
...