Select Code to Download

$ perl -E 'my @x = ("ade:Y", "Abc:X", "Afg:Z"); say for sort @x'
Abc:X
...
Abc:X
ade:Y
Afg:Z

$ perl -C -E 'my @x = ("\x{c5}de:Y", "Abc:X", "Afg:Z"); say for sort @
+x'
Abc:X
...
Abc:X
Åde:Y
Afg:Z

my @multi_sorts = (
    [ $array1, ':', 'num' ],
...

    return;
}