my %file_date;
my $max = -99999999; # set it to first file's mtime would be better 
                     # but just for demonstration here
my $mtime;
my $file;
for ( glob '/path/to/*.log' ) {
    $mtime = (stat)[9];
    if ($max <= $mtime) {
       $file =  $_;
       $max = $mtime;
    }
  
print ("file = $file\n");

# my $newest = ( sort { $file_date{$b} <=> $file_date{$a} } keys %file_age )[0];