Select Code to Download

use strict;
use warnings;
...
my @TXT = glob("*.txt");
@TXT = sort files_sort @TXT;
print "$_\n" for @TXT;

% ls -1 *.txt
A3_output_ZGZ22_03_20061022_duration_200mn_comptage_60.txt
...
A3_output_ZGZ22_03_20061022_duration_200mn_comptage_60.txt
M3_output_ZGZ22_12_20051022_duration_200mn_comptage_60.txt
M3_output_ZGZ22_12_20061022_duration_200mn_comptage_60.txt