opendir DIR, $dir
  or die "Couldn't open directory '$dir' : $!";
my @files = grep { /(.*)\.mrg$/ and not -f "$dir/$1.did" } readdir DIR;
closedir DIR;