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