my @newest_first = sort { -M $a <=> -M $b } <*>;