my @files = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);