Help for this page
use strict; use warnings; ... sort map { join q{}, map { $sortLU{ $_ } } split m{}, $_ } @list;
first . ... baker Charlie zebra