Select Code to Download

#!/usr/bin/env perl -l

...

print join "\n", '@files:', @files;
print join "\n", '@sorted:', @sorted;

@files:
1020300000_XXXXXXXXX_20160707193000.TXT
...
1020300000_XXXXXXXXX_20160707193000.TXT
1020400000_XXXXXXXXX_20160707180000.TXT
1020400000_XXXXXXXXX_20160707190000.TXT