Schwartzian Transform

         @sorted_names = 
           map { $_->[0] }
           sort { $b->[1] <=> $a->[1] } 
           map { [ $_, -M $_ ] } 
           readdir D;