Update:Looking over it again, you have a lot of errors in you program that perl would have told you about if you didn't predeclare you variables, like the one I point out first below /update

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

If you'd done
while (my ($word, $occurence) = rather than predeclaring your $count, perl could have told you.

foreach $k (@sortkeys) { make it

foreach my $k (@sortekeys) {
[download]

sub DetermineFontSize ($)
sub DetermineFontSize
[download]

print <<EOT
print <<"EOT";
[download]

Update2:You should also try Data::Dumper, and do some print Dumper( \$var ) various places in your code, start with print Dumper( \%dbtags ); just after pulling from the database. Then, ask yourself why you never use that hash again....