my ($newM, $oldM) = (sort {-M $a <=> -M $b} <./*>)[0,-1];