#check each file in logs directory
my @to_move;
foreach my $file (@files) {
    $file eq '.' || $file eq '..'
    or push @to_move, $file;
}

##</code><code>##

#check each file in logs directory
my @to_move;
foreach my $file (@files) {
    next if $file =~ /^\.\.?$/;
    push @to_move, $file;
}

##</code><code>##

my @files = grep { -M "$log_dir/$_" > 1 && !/^\.\.?$/ } readdir(LOGS);