my %should_be;
@should_be{@shouldexist} = ();
delete @should_be{@doexist};
{
    local $, = ', ';
    print q(These files should be there but aren't: ),
          keys %should_be;
}