Hey,

To select the individual groups only once, you can also use the DISTINCT clause for the select statement.

Then you can use the results in a prepared cache to find the results for each individual group. monarch seems to have a correct solution also. But I'd thought I post something about the DISTINCT clause because it solves your first problem really well.

my $dbh = DBI->connect('DBI:mysql:DB', 'user_n', $pass) or die "Failed
+ connecting to DB " . DBI->errstr;

    my ($groups, $results);
    my $sth = $dbh->prepare_cached(<<SQL);
SELECT DISTINCT group from table
SQL

    $sth->execute or die "executing: ", $dbh->errstr;;
    $sth->bind_columns(undef, \$groups);
    #bind the results--only contains unique group results.

    my $sth_x = $dbh->prepare_cached(<<SQL);
SELECT somedata FROM table where group = ?
SQL
            my $found = 0; my $found_x = 0;
                print "<b>$groups</b><hr>";

                while ($sth->fetch) {
                 $found++;

    $sth_x->execute($groups) or die "executing: ", $dbh->errstr;  
    #find results using the results from the first query
    $sth_x->bind_columns(undef, \$results);


        
                    while($sth_x->fetch) {
                    $found_x++;
                    print "$results<br>";
                    }
                    unless($found_x) { print "empty for this group"; }

        print "<br>";
        my $found_x = 0; 
        #reset 2nd search found for next group result query.
                }

        unless ($found) { print "no groups matched"; }
[download]

perleager