$objct = 0; $enabled = 0;
    $obj = undef;
    foreach $obj (in $col) 
      {
      my $delete = 0;
      if($debug == 1) { print "\tOBJ: \"$obj\" L: \"" . __LINE__ . "\"\n"; }

      }