# ... assume up to $sth->execute

$sth->bind_columns(
    map { \${$_} }
       @{ $sth->{NAME_lc} }
)  || die("unable to bind columns: ", $sth->errstr);

# ... assume same while-loop and output as before