my $dir = "c:/temp";
opendir(DIR, $dir) or die $!;
my @filesSorted =
  map { $_->[0] }
  sort { $a->[1] <=> $b->[1] }
  map { [ $_, -M "$dir/$_" ] }
  readdir(DIR);
closedir(DIR);
[code]
fuer Erklaerung siehe meine HP -> Tips&Tricks -> Sortierungen -> Schwartzian Transform