my $c = $$r{code};
    push @{$code{$c}}, $r;
  }
  # For each code $c, $code{$c} is now an arrayref which
  # contains the relevant records (as hashrefs).  The
  # number of elements in the array equals the number
  # of occurances.  Now, for the second part...