Another example:
@sorted_names = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [ $_, -M $_ ] } readdir D;
-M is the file-test for last-modified time
In this case, we don't need to save the time, we just save the filename.