sub remove_from_dtgs {
    my ($dtg,$file) = @_;
    my @files = grep {$_ ne $file} @{$dtgs{$dtg}};
    if(@files == 0) {
        delete $dtgs{$dtg};
    } else {
        $dtgs{$dtg} = \@files;
    }
}