opendir(DIR1, "perf1/");

my @perf1_files = grep {/\.log/} readdir(DIR1);