sub foobar {
   my ($object, $result);
   foreach $object (@_) {
      $result .= "Title:\t"  . $$object{title}  ."\n"
              .  "Author:\t" . $$object{author} ."\n"
              .  "-------------------------------\n";
   }
   return $result;
}