% for $book (@books){ %}
TitleRatingAuthor(s)
<% $book->title %> <% $book->rating %> <%perl> my @authors = $book->authors; (<% scalar @authors %>) <% join(', ', @authors) %>