gistfile1.pl

        my $sql = "SELECT count(s.seq_id) AS nb, isha.motifs
                FROM sequences s
                JOIN (
                        SELECT sha.seq_id AS shaseq_id,GROUP_CONCAT(i.ipr_code ORDER BY i.ipr_code) AS motifs
                        FROM seq_has_an sha, ipr i
                        WHERE i.ipr_id = sha.ipr_id AND i.ipr_code IN ($IPR_list)
                        GROUP BY shaseq_id
                     ) isha ON s.seq_id = isha.shaseq_id
                WHERE s.species_id = $_{species_id}
                GROUP BY isha.motifs
                ORDER BY isha.motifs;";

        my $number_by_ipr_combination = $dbh->selectall_arrayref( $sql, { Slice => {} } );



---------------





        my $sql = "SELECT count(s.seq_id) AS nb, isha.motifs
                FROM sequences s
                JOIN (
                        SELECT sha.seq_id AS shaseq_id,GROUP_CONCAT(i.ipr_code ORDER BY i.ipr_code) AS motifs
                        FROM seq_has_an sha, ipr i
                        WHERE i.ipr_id = sha.ipr_id AND i.ipr_code IN ($IPR_list)
                        GROUP BY shaseq_id
                     ) isha ON s.seq_id = isha.shaseq_id
                WHERE s.species_id = $_{species_id}
                GROUP BY isha.motifs
                ORDER BY isha.motifs;";

        my $number_by_ipr_combination = $dbs->query( $sql )->hashes;