sub foobar {
   my ($object, $result, $f);
   foreach $object (@_) {
      foreach $f (sort @fields) {
        $result .= "$f:\t"  . $$object{$f}  ."\n";
      }
      $result .= "-------------------------------\n";
   }
   return $result;
}