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