@t_arr =
        grep {
          grep { $_ !~ /^\./ }
            $var3 = (split /[_.]/)[2];
            $var3 > $var1 and $var3 <= $var2;
            }
         readdir(EVT_DIR);