$ cd dominus-tmp

$ cat schwartz
#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd pp /;

my @sorted_names ;


opendir D, '.' or die $!;
@sorted_names =
    map { [ $_, -M $_ ] }
    readdir D;
dd \@sorted_names;

opendir D, '.' or die $!;
@sorted_names =
    sort { $b->[1] <=> $a->[1] }
    map { [ $_, -M $_ ] }
    readdir D;
dd \@sorted_names;

opendir D, '.' or die $!;
@sorted_names =
    map { $_->[0] }
    sort { $b->[1] <=> $a->[1] }
    map { [ $_, -M $_ ] }
    readdir D;
dd \@sorted_names;
__END__


$ perl schwartz
[
  [".", 0.00197916666666667],
  ["..", 0.00247685185185185],
  ["schwartz", 0.000289351851851852],
]
[
  ["..", 0.00247685185185185],
  [".", 0.00197916666666667],
  ["schwartz", 0.000289351851851852],
]
["..", ".", "schwartz"]