use strict;
use warnings;

my $LOG_DIR = '.';

opendir DH, $LOG_DIR or die;
my @files = sort grep { /\_LOG$/i } readdir DH;
close DH;

my $lastlog = pop @files;
print "lastlog=$lastlog\n";