use autodie;
opendir my $dir, ".";
my @files = grep {!/pattern_I_want_to_ignore/}
            sort grep {!/^\./} # simulate ls
            readdir $dir;