my %words;
while (<DFILE>) {
    chomp;    
    my ($key, $val) = split /:/;
    $words{$key} = $val;
};