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