Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
   sort
   map { join q{}, map { $sortLU{ $_ } } split m{}, $_ }
   @list;

Select or download this
```
 first
.
...
baker
Charlie
zebra
```