# nach änderungsdatum neuestes zuerst
my @files = sort {-M "$directory/$b" <=> -M "$directory/$a" } readdir DIR;