Select Code to Download

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