#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  local(%mammals);
  my $chromosomeFile = "./chromosomes";
  dbmopen(%mammals,$chromosomeFile,0666);

  %mammals = (
    "Ornithorhynchus anatinus" => 54,
    "Tachyglossus aculeatus"   => 64,
    "Gorilla gorilla"          => 48,
    "Homo sapiens"             => 48,
    "Pan troglodytes"          => 48,
    "Pongo pygmaeus"           => 48,
  );

  dbmclose(%mammals);