Select Code to Download

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

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