for my $ix (reverse 0 .. $#$ar) {
  if ($someConfig->{ $ar->[$ix] }{Exclude}) {
    splice @$ar, $ix, 1;
  }
}

##</code><code>##

@$ar = grep !$someConfig->{$_}{Exclude}, @$ar;