Unicode Collation Algorithm (sort)

uca.pl

use Unicode::Collate;
# https://metacpan.org/pod/Unicode::Collate

my @unsorted = ('A', "\xF0\x9F\x97\x91", 'B');
print "unsorted:\n";
foreach (@unsorted) {
  print "$_\n";
}

my @sorted = Unicode::Collate->new()->sort(@unsorted);
print "-------------\n";
print "sorted:\n";
foreach (@sorted) {
  print "$_\n";
}

z_output.txt

unsorted:
A
🗑
B
-------------
sorted:
A
B
🗑