i.e.

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