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