$sth->execute(...);
my $names = $sth->{NAME_lc};
while (my $row = $sth->fetch) {
  my %hash;
  $hash{@$names} = @$row;
  push @data, \%hash;
}