Select Code to Download

use 5.026;
use warnings;
...
    $raStrings->[ $idx ++ ]->{ bySet } = $_
       for unpack qq{(a$len)*}, $allSorted;
}

@strings = (
             {
...
               'original' => 'aaaaaaaaabaaaaabbaaaaabaaccccc'
             }
           );