my %rec;

$sth->bind_columns (\(@rec{@{$sth->{NAME_lc}}}));


while ($sth->fetch) {
my %res = %rec;
    push(@result, \%res);
}
	return \@result;