sub summarize_by {
    my $field_name = shift @_;

    my %out;
    for my $r ( @records ) {
        push @{ $out{$r->{$field_name}} }, $r;
    }
    return \%out;
}