while (my($word, $count) = $sth->fetchrow_array) {
    $tag{$word} = $count;
}

##</code><code>##

foreach my $words (sort keys  %tag) {
  my $fsize = $tag{$words};
  printf "<style=\"font-size:%dpx;\">%s\n", $fsize, $words;
}