use Data::Dumper;
print Dumper( [ [ { 1, 2 }, [ [ { 6, 7 } ] ] ] ] );
__END__
$VAR1 = [
          [
            {
              '1' => 2
            },
            [
              [
                {
                  '6' => 7
                }
              ]
            ]
          ]
        ];
[download]

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]