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