my @logs = map { s/\.log$//; $_ } grep { !m/^\./ } readdir $LOGDIR;