Thanks for all the wisdom ! I am not sure how efficient my final solution is, but I wanted an array of hashes. This works

my %rec;

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


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