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