sub filterExclude{ 
  my $ar = $_[0] ;   # REF!
  my $someConfig  = $_[1] ;
   
  $ar=[ 
    grep { 
      exists($someConfig->{$_}{Exclude}) && $someConfig->{$_}{Exclude}
    } @$ar 
  ];
  return $ar
}