for $sth (@sth) {
  my $object=new STH;
  $objects{$sth}=$object;
};