use strict;
use warnings;
use Unicode::Collate;

# Level 2 collation: diacritic ordering
my $collator = Unicode::Collate->new(level => 2);

@sorted = $collator->sort(@not_sorted);
[download]