Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}

$d->dumpValues(\%count);

__DATA__
AGATAGCGCTGATCGAGAGCTATAGCGATCGATCGGATCGATCGGGATCTTAGCGAAAAGCTCGAT
...
ATAGAGATCGCGCTAGCTCGATCGCGCGCTAGATTATATATATATTAGCGGCGCGATAGCTCGCTA
GCTGCTAGCTCGCTAGCTCGATCTTC

0  HASH(0x1824334)
   'A' => 535
...
   'TTC' => 21
   'TTG' => 6
   'TTT' => 30