my @newest_first =
    map $_->[0],
    sort { $a->[1] <=> $b->[1] }
    map [$_, -M],
    <*>;