@a =
   map $_->[0],
      sort { $b->[1] <=> $a->[1] }
         grep defined($_->[1]),
            map [ $_, -M $_ ],
               @a;