my %fragment_exists;
sanitize_name(sub {map { $_ . "_" . $fragment_exists{ $_  }++} @_ },
              $title, ...);