175 foreach $component ( @{$Tools_Hash} ) {
    176      my $entity = $component->[0] ;  # first thing is the entity to check.
    177      if($things_to_check{$entity} ==  1 ) {
    178      $check_function = $component->[-1] ; # last thing is the function to check.
    179      $ret = \&$check_function($entity, splice(@{$component},1,-1)); #rest of the inbetween things are args to function.
    180      }
    181 }