Select Code to Download

use Modern::Perl;

...
occurence4    A    a__bear;c__
occurence5    C    a__wolf;c__grey
occurence6    C    a__bear;c__brown

occurence1 (A) is a bear colored black
occurence2 (B) is a wolf colored grey
occurence3 (A) is a wolf colored white
occurence4 (A) is a bear colored 
occurence5 (C) is a wolf colored grey
occurence6 (C) is a bear colored brown

use Modern::Perl;
use DBI;

...
    $sth->execute( $id, $sample_id, $animal, $color );
}
$dbh->commit;

SELECT sampleid, animal, count(*) FROM sightings GROUP BY sampleid, an
+imal

"A","bear","6"
"A","wolf","4"
"B","bear","2"
"B","wolf","7"
"C","bear","6"
"C","wolf","5"

SELECT sampleid, color, count(*) FROM sightings GROUP BY sampleid, col
+or

"A","black","1"
"A","brown","3"
"A","grey","1"
...
"C","grey","3"
"C","unknown","2"
"C","white","1"