% foreach my $e (@$gr) { % next unless exists $ar->{ $e->{id} };

<% $e->{Title} %>

% my $i = 0; % foreach my $a (@{ $ar->{$e->{id}} }) {
• <% $a->[1] %> % if ($i++>5) {

  ---

• Больше вопросов и ответов по теме <% $e->{Title} %>
% last ;} % }

% }