my %fragment_exists;

my $fragment;
my $duplicate = '';
do {
    $fragment = sanitize_name( "$title_" . $duplicate++ );
while( $fragment_exists{ $fragment }++ );