my %columns;

# stuff here

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

# dereference somehow, may not be correct

while($sth->fetch) {
	print "<tr><td>$name</td><td>$columns{price}</td></tr>\n";
	print "<tr><td colspan=\"2\">$columns{description}</td></tr>\n";
}