next if $file =~ /^\.{1,2}$/;
# or
next if $file eq '.' || $file eq '..';
# ...