foreach (@temp) {
    my ($instan, $value) = (split /\*/, $_);
    my $k = $key . ":" . $instan;
    $DM_D{$k} += $value;  # Change this line maybe???
}