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

##</code><code>##

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