...
use Sort::Key qw(keysort);
...
cmpthese(-3, {
    ...
    sk => '
        use strict; use warnings;
        my @sorted = keysort { substr($_, -(19+20), 19) } @::LogFileList;
    ',
});