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

##</code><code>##

while (my ($word, $occurence) = 

##</code><code>##

foreach $k (@sortkeys) {

##</code><code>##

foreach my $k (@sortekeys) {

##</code><code>##

sub DetermineFontSize ($)
sub DetermineFontSize 

##</code><code>##

print <<EOT
print <<"EOT";