print $xml_handle->book(
         map { $xml_handle->value($_) } @values
      );