@files =
        map  { $_->[1] }
        sort { $a->[0] cmp $b->[0] }
        map  { [/_(\w+)\.txt$/, $_] } @files;