sub Add_key_and_value {
  $_[0]->{ $_[1] } = $_[2];
}