The code you have is not meant to display the files in any particular order. You can probably change that by adding a word:
foreach $file (sort @files) {
JPD
----------------------------------------------------
JPDeni's DBMan-ual
How to ask questions the smart way.
foreach $file (sort @files) {
JPD
----------------------------------------------------
JPDeni's DBMan-ual
How to ask questions the smart way.