my %tailoring;
my $Collator;
$Collator = Unicode::Collate->new(%tailoring);

@char = $Collator->sort(@char);