use List::Util 'reduce';
my $newest = reduce {
    (stat $a)[9] < (stat $b)[9] ? $b : $a
} glob '/path/to/*.log';