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