use Sort::ArbBiLex (
    'fulani_sort',   # ask for a &fulani_sort to be defined
    "a A
     c C
     ch Ch CH
     ch' Ch' CH'
     e E
     l L
     lh Lh LH
     n N
     r R
     s S
     u U
     z Z
    "
  );
  @words = <>;
  @stuff = fulani_sort(@words);
  foreach (@stuff) { print "<$_>\n" }

##</code><code>##

	A, B, D
	L, N, R, A, E
	B, C, D, R, B, I, A, &rsquo;, C
	E, A, R, O, I, N, R, A, C

##</code><code>##

#/usr/bin/perl -w

use strict;

my %glyphs;
my @words;
while  ( <DATA> ) {
	push @words, split /,\s*/;
}

@glyphs{ map { /(&.+?;)|(.)/g } @words } = 1; 
print join( "\n", keys %glyphs);

__DATA__
ALBEVERIO MANZONI, 	Solvejg
ALCAL&Aacute;, 		Kathleen
ANDR&Eacute;E, 		Alice
ARROYO-GOMEZ, 		Mario Vernon
BABINEAU, 			Jean Joseph
BAINBRIDGE, 		Dame Beryl (Margaret)
BAINBRIDGE, 		Cyril
DEARDEN, 			James Shackley
DE&rsquo;ATH, 		Richard
DECKER, 			Donna