for my $file (@filenames) {
    next if $file =~ /^\.\.?$/;
    ...
}