while (my ($code, $count) = each %uniques) {
  print "$code => $count\n";
}