Select Code to Download

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

my %comment_cols = qw/
  c_title title
...
    @data{keys %comment_cols} = $_->get(values %comment_cols);
    push @c_data, \%data;
}

@c_data = map {
    my %data;
    @data{keys %comment_cols} = $_->get(values %comment_cols);
    \%data;
} @comments;