opendir DIR, $directory or die $!;
my @files = readdir DIR;
closedir DIR;

#. und .. ausfiltern
@files = grep{$_ !~ /^\.?\.$/}@files;

# sortieren
@files = sort{-M $a <=> -M $b}@files;

opendir DIR, $directory or die $!;
my @files = sort{-M $a <=> -M $b}grep{$_ !~ /^\.?\.$/}readdir(DIR);
closedir DIR;