sub Add_key_and_value {
  my( $ref, $key, $value ) = @_;
  $ref->{ $key } = $value;
}