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

##</code><code>##

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