open(my $dtg_file, "<", $infile) or die "Unable to open $infile: $!\n";
while(<$dtg_file>) {
    chomp;
    my ($dtg,@files) = split /:/;
    $dtgs{$dtg} = \@files;
}
close $dtg_file;