sub {

my $db = $DB->table('Reviews');
$db->select_options( "GROUP BY Review_LinkID","ORDER BY review_count DESC","LIMIT 5");
my $sth = $db->select("Review_LinkID", "COUNT(*) as review_count") or die "Query Error: $GT::SQL::error";

my $back;
my @loop;
while (my ($s, $c) = $sth->fetchrow_array) {
# my $url = $CFG->{db_cgi_url} . "/review.cgi?username=$s";
my $link = $DB->table('Links')->get( { ID => $s } );

if (!$link->{isValidated}) { next; }

push @loop, { %$link, ReviewCount => $c }
#$back .= qq| <a href="$CFG->{db_cgi_url}/reviews.cgi?ID=$s">$link->{Title}</a> ($c reviews) <br />|;
}

# return \$back;
return { Most_Reviewed_Links => \@loop }

}

<%xx_reviews%>

<%loop Most_Reviewed_Links%>
<a href="<%config.db_cgi_url%>/reviews.cgi?ID=<%ID%>"><%Title%></a> (<%ReviewCount%> reviews) <br />
<%endloop%>