+</%perl>
+% foreach my $ap (qw(A P)) {
+<h2>ap=<% $ap %></h2>
+<table rules=all>
+% foreach my $isles (sort {
+% $results{$ap}{$a}{Values}{$ap} <=>
+% $results{$ap}{$b}{Values}{$ap}
+% } keys %{$results{$ap}}) {
+% my $item= $results{$ap}{$isles};
+<tr>
+<td align=right><% $item->{A} |h %>
+<td align=right><% $item->{P} |h %>
+<td align=center><% $isles |h %>
+</td>
+% } # $isles
+</table>
+% } # $ap
+<%perl>
+
+