Select Code to Download

my @files = glob( "/var/log/messages*" );

...
my @sortedfiles = sort {
    ( stat($b) )[9] <=> ( stat($a) )[9]
} @files;