#####
# Header page
#####
print "Group vs. Group summary\n"
.     "-----------------------\n\n"
.     "Grp  Grp  Stat1  Stat2  ...\n"
.     "---- ---- ------ ------ ------\n";
# Do SQL query here to generate cross-tab for Group pairs:
my $S=$DB->prepare(
    "SELECT a.groupcode, b.groupcode, /* compute stats */ "
   ."FROM my_table a, my_table b "
   ."WHERE a.entry_code != b.entry_code "
   ."GROUP BY a.groupcode, b.groupcode "
   ."ORDER BY a.groupcode, b.groupcode"
) or die;
$S->execute or die;
for (my $ar=$S->fetchrow_arrayref) {
    # print junk
    # Store the pair of group codes.  (I'm assuming that the
    # stats are symmetric, so only push group code pairs once
    # so we don't get two pages of details for each pair.)
    # (?Syntax OK? I've never tried pushing an arrayref onto
    # an array before...)
    push @grp_pairs, \($ar[0], $ar[1]) if $ar[0] < $ar[1];
}

#####
# Detail view pages
#####
$S = $DB->prepare(
     "SELECT a.entry_id, a.some_other_col, b.entry_id, "
    ."       b.some_other_col "
    ."FROM my_table a, my_table b "
    ."WHERE a.entry_code=? and b.entry_code=? "
    ."ORDER BY a.entry_id, b.entry_id"
) or die;
# (?Syntax again? probably wrong and needs fixing)
while (my ($grp1, $grp2) = pop @grp_pairs) {
   print $FormFeed
   .     "DETAILS for $grp1 vs. $grp2\n\n"
   .     "A.ID A.ColB B.ID B.ColB Stat1 Stat2 ...\n"
   .     "---- ------ ---- ------ ----- ----- ------\n";
   # Generate group vs. group details
   $S->execute($grp1, $grp2) or die;
   for (my $ar=$S->fetchrow_arrayref) {
      # print junk...
   }
}