my %have_file;
undef @have_file{glob("*")};
my @dont_exist = grep !exists $have_file{$_}, @should_exist;