opendir my $dh => $dir or die;
my %files;
   @files {map {lc} readdir} = ();    
closedir $dir;
my @missing = grep {/^(.*)\.did$/s && !exists $files {"$1.mrg"} keys %files;