use Data::DRef ( set_value_for_key );
  $Data::DRef::Separator = ':';

  my ($key, $val) = split /=/;
  set_value_for_key( $hash, $key, $value );