my @files= grep (!/^\.\.?$/, @files); #or without regex
my @files= grep ($_ ne "." and $_ ne "..", @files);