# Original code
for ( sort { -M $a <=> -M $b } glob ... )

# Orcish Maneuver
my %t; for ( sort { ($t{$a} ||= -M $a)
                     <=>
                    ($t{$b} ||= -M $b) } glob ... )