sub filterExclude{ 
   my $ar = $_[0] ;   # REF!
   my $someConfig  = $_[1] ;
   my $ix = 0 ;
   foreach ( @{$ar} ) {
      my $sKey = $_ ;
      if ( exists ( $someConfig ->{ $sKey }->{ Exclude} ) && $someConfig ->{ $sKey }->{ Exclude} ) {
         splice ( @{$ar}, $ix, 1 ) ;
         $ix = $ix - 1 ;
      }
      $ix = $ix + 1 ;
   }
}

##</code><code>##

sub filterExclude{
   # 20240414 Quick fix needed because of the splice
   my $ar = $_[0] ;   # REF!
   my $someConfig  = $_[1] ;
   my $tmpCheckedEverything = 0 ;
   while ( !($tmpCheckedEverything) ) {
      $tmpCheckedEverything = 1 ;
      my $ix = 0 ;
      foreach ( @{$ar} ) {
         my $sKey = $_ ;
         if ( exists ( $someConfig ->{ $sKey }->{ Exclude} ) && $someConfig ->{ $sKey }->{ Exclude} ) {
            splice ( @{$ar}, $ix, 1 ) ;
            $tmpCheckedEverything = 0 ;
         }
         $ix = $ix + 1 ;
      }
   }