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