my @comment_cols = qw/title author thread_id id/;
for (@comments) {
    my %data;
    @data{@comment_cols} = $_->get(@comment_cols);
    push @c_data, \%data;
}