sub read_record {
    my ($line) = @_;

    my %claim_record = ();
    @claim_record{ CLAIM_KEYS } = unpack(CLAIM_TEMPLATE, $line);
    return \%claim_record;
}