while ($ref = $sth->fetchrow_hashref){
...
   foreach $col (keys %$ref) {

##</code><code>##

while ($ref = $sth->fetchrow_hashref("NAME_lc")){
...
   foreach $col (@{$sth->{"NAME_lc"})