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