%shouldexist = (
'filename1' => 1,
..
'filenamen' => 1
);
#or just
%shouldexist = map {$_ => 1} @shouldexist;

##</code><code>##

for(@doexist) {
  delete $shouldexist{$_};
}