Select Code to Download

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

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