foreach (sort {-M $a <=> -M $b} <*>)
{
    # ...
}