Select Code to Download

my %m = ();
@sorted = sort {
  ($m{$a} ||= -M $a) <=> ($m{$b} ||= -M $b)
} @files;

my @rank[sort {$x[$a] cmp $x[$b] } 0..$#x] = 0..$#x;