my %shouldexist = map { $_ => undef } @shouldexist;

##</code><code>##

delete $shouldexist{ $filename };

##</code><code>##

print "Missing:\n";
foreach (sort keys %shouldexist) {
   print "$_\n";
}