my %by_fields;

#while (my $row = $sth->fetchrow_hashref()) {
foreach my $row (@ar) {
   foreach my $field (keys %$row) {
      my $value = $row->{$field};
      push(@{$by_fields{$field}}, $value);
   }
}