Help for this page

Select Code to Download

Select or download this

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

Select or download this

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