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