my @files = grep{/\.file$/} readdir(DIR2);