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