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

##</code><code>##

$newest= (sort { ($m{$a} ||= -M $a) <=> ($m{$b} ||= -M $b) } <*.log>)[0];