find( {
        preprocess => sub { sort { $a <=> $b || $a cmp $b } @_ },
        wanted => sub { next if /^\.+$/...}
    },
    $dir
);