user
Task

Sort an array (or list) of strings in order of descending length, and in ascending lexicographic order for strings of equal length.

Use a sorting facility provided by the language/library, combined with your own callback comparison function.

**Note:**   Lexicographic order is case-insensitive.
assistant
(formerly Perl 6)  
Primary sort by length of string, then break ties by sorting alphabetically (ignoring case).

```
my @strings = <Here are some sample strings to be sorted>;
put @strings.sort:{.chars, .lc};
put sort -> $x { $x.chars, $x.lc }, @strings;

```

Output:

```
be to are Here some sample sorted strings
be to are Here some sample sorted strings

```