@objects = sort {
  if ($a->t_d_o($b)) { 
    return -1;
  elsif ($b->t_d_o($a)) {
    return 1;
  }
  else {
    return 0;
  }
} @objects;