@val = sort map {-M $_} grep {...