v----- NOT $count?
while (($word, $occurrence) = $sth->fetchrow_array ){
	%dbtags = ($word, $count);
	}                     ^--- NOT $occurence?