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

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