$sth->bind_columns(
    map { undef ${$_}; \${$_}; } 
       @{ $sth->{NAME_lc} }
);

while($sth->fetch) {
    print("$table_pk\t$name\n");
}